MATHEMATICS 











QUICK GUIDE TO USING 
THE LIBRARY 


Always refer to the instruction book until you are familiar 
with the use of the calculator. 

To enter a program: 

Enter goto/0/0/prog 

Then enter the keystrokes as given in the table on the 
right hand side of each program in the library. 

Then enter prog/goto/0/1 

Always remember to press \_A when the upper case of a key 
is required. 

To use a program follow the pre execution (if applicable) and 
execution sequence given with it. Remember to wait till the 
display lights up before entering a number in the middle of 
an execution sequence. 

If you think you have made a mistake in program entry, 
check the program with some data for which you know the 
correct answer. If there is an error, either re enter the 
program, or find the error using the check codes and correct 
it as detailed in the instruction book. 

If you make a mistake in the execution sequence, it is 
generally necessary to enter C/goto/0/1 and to start the pre 
execution and execution sequences again. 

It is a good idea to press |jT) to clear any previous results 
before starting an execution sequence or, indeed, any 
calculation. 

A program can be halted in the middle of execution by 
entering /stop/ li.e. pressing ft FT|). 
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17 COMPLEX NUMBERS 


17.1 Complex multiplication 

17.2 Complex division 

17.3 Complex addition, sub¬ 
traction, multiplication and 
division 

17.4 Magnitude and argument 

17.5 Nth roots of unity 

17.6 Nth roots of —1 

17.7 Real power of a complex 
number (x + iy)' 

17.8 Sine and cosine of a complex 
number 


COMPLEX 

MULTIPLI¬ 

CATION 


z = (x + iy)(x' + iy') 

Execution: 

x/x4^y/y/run/ 

x'/x^y/y'/run/ 

/x^y/ 

part of 2 


17.1 


KEY 

# 

KEY 

# 

HALT 

00 

x-«^y 

40 

sto 

01 

rcl 

41 

0 

02 

5 

42 

x«0>y 

03 

goto 

43 

sto 

04 

0 

44 

1 

05 

0 

45 

stop 

06 


46 

sto 

07 


47 

2 

08 


48 


09 


49 

sto 

10 


50 

3 

11 


51* 

X 

12 


52 

rcl 

13 


53 

1 

14 


54 

- 

15 


55 

( 

16 


56 

rcl 

17 


57 

0 

18 


58 

X 

19 


59 

rcl 

20 


60 

2 

21 


61 

) 

22 


62 

= 

23 


63 

sto 

24 


64 

5 

25 


65 

rcl 

26 


66 

3 

27 


67 

X 

28 


68 

rcl 

29 


69 

0 

30 


70 

+ 

31 


71 

( 

32 


72 

rcl 

33 


73 

1 

34 


74 

X 

35 


75 

rcl 

36 


76 

2 

37 


77 

) 

38 


78 

= 

39 


79 
















KEY 

# 

KEY 

# 

HALT 

00 

0 

40 

sto 

01 

X 

41 

0 

02 

rcl 

42 

x<«^v 

03 

3 

43 

sto 

04 

— 

44 

1 

05 

( 

45 

stop 

06 

rcl 

46 

sto 

07 

2 

47 

2 

08 

X 

48 

x<«^y 

09 

rcl 

49 

sto 

10 

1 

50 

3 

11 

) 

51 

X 2 

12 

* 

52 

+ 

13 

rcl 

53 

rcl 

14 

4 

54 

2 

15 

= 

55 

X 2 

16 


56 

1 = 

17 

rcl 

57 

sto 

18 

5 

58 

4 

19 

goto 

59 

rcl 

20 

0 

60 

0 

21 

0 

61 

1 * 

22 


62 

rcl 

23 


63 

2 

24 


64 

' + 1 

25 


65 

( 

26 


66 

rcl 

27 


67 

1 

28 


68 

1 x 

29 


69 

rcl 

30 


70 

3 

31 


71 

) 

32 


72 

-r 

33 


73 

rcl 

34 


74 

4 

35 


75 

= 

36 


76 

sto 

37 


77 

5 

38 


78 

rcl 

39 


79 


COMPLEX 

DIVISION 


Execution: 

x/x-^y/y/run/ 
x'/x^y/y '/run/ 


17.2 




COMPLEX 

ARITHMETIC 


(x + iy) 4 (x* + iy') 

- (x + x‘) + i(y 4 y') 

(x 4 iy) - lx' + iy') 

= (x -x') + i(y -y') 

(x 4- iy)(x* + iy') 

= (xx' — yy') 4 i(xy’ + yx') 

x + iy _ xx' + yy' ( . yx' — xy' 
x' + iy' ~ x' J +V J 'x' J +y' J 

Execution: 

Addition: 

x/x^y/y/run/x'/x^y/y'/run/ 

/x«0-y/ 

Subtraction 

x/x y/y/run/x'/ 4- /— / 

^◄►y/y’/ 4 '/—/run/ 
x ◄►y/ 

Multiplication: 

x /x ^ ► y/y/ru n /x 7x ◄ ► y /y '/goto / 
4/3/run/ 
x ◄►y/ 

Division: 

x/x ^►y/y/run/x'/x^^y/y'/goto/ 
1/9/run/ / 

x««*-y/ 


17.3 


KEY - 

KEY 

# 

HALT 00 

x^y 

40 

sto 01 

rcl 

41 

0 02 

2 

42 

x^y 03 

sto 

43 

sto 04 

2 

44 

1 05 

x*4^y 

45 

stop 06 

sto 

46 

M 4 07 

3 

47 

0 08 

X 

48 

rcl 09 

rcl 

49 

0 10 

1 

50 

11 

— 

51 

M 4 12 

( 

52 

1 13 

rcl 

53 

rcl 14 

0 

54 

1 15 

X 

55 

goto 16 

rcl 

56 

0 17 

2 

57 

0 18 

) 

58 

sto 19 

= 

59 

2 20 

sto 

60 

x*4^y 21 

5 

61 

sto 22 

rcl 

62 

3 23 

3 

63 

x ? 24 

X 

64 

* 25 

rcl 

65 

rcl 26 

0 

66 

2 27 

+ 

67 

x 2 28 

( 

68 

4 29 

rcl 

69 

rcl 30 

1 

70 

2 31 

X 

71 

4/- 32 

rcl 

72 

x ◄►v 33 

2 

73 

= 34 

) 

74 

sto 35 

= I 

75 

2 36 

x«^y 

76 

rcl 37 

0 

77 

3 38 

rcl 

78 

= 39 

5 

79 











17.4 


KEY 

# 

KEY 

HALT 

00 

= 

sto 

01 

D ► R 

0 

02 

goto 

x«^y 

03 

0 

sto 

04 

0 

1 

05 

X 2 

06 

+ 

07 

rcl 

08 

0 

09 

X 2 

10 

= 

11 

v/x 

12 

stop 

13 

1/x 

14 

X 

15 

rcl 

16 

1 

17 

= 

18 

arc 

19 

cos 

20 

sto 

21 

1 

22 

rcl 

23 

0 

24 

gin 

25 

3 

26 

4 

27 

rcl 

28 

1 

29 

D ► R 

30 

goto 

31 

0 

32 

0 

33 

3 

34 

6 

35 

0 

36 

i ~~ 

37 

rcl 

38 

1 

39 


x + iy = re 1 ® 

Execution: 

x/x^^y/y/run/ /run/ 

The value of 0 is given in the 
range [0, 2ir). 


# 

40 

42 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 


NTH ROOTS 
OF UNITY 



17.5 

KEY 

HALT 

. # 
00 

KEY 

* 

40 


t/x 

01 


41 


X 

02 


42 


stop 

03 


43 


1 X 

04 


44 


3 

05 


45 


6 

06 


46 

x* = e 2k * ,/N 

0 

07 


47 

Execution: 

sto 

08 

09 


48 

49 

N/run/k/run/ / 

0 

10 


50 

/ 

sin 

11 


51 



12 


52 


rcl 

13 


53 


0 

14 


54 


cos 

15 


55 


goto 

16 


56 


0 

17 


57 


0 

18 


58 



19 


59 



20 


60 



21 


61 



22 


62 



23 


63 



24 


64 



25 


65 



26 


66 



27 


67 



28 


68 



29 


69 



30 


70 



31 


71 



32 


72 



33 


73 



34 


74 



35 


75 



36 


76 



37 


77 



38 


78 



39 


79 




17.6 


KEY 

# 

HALT 

00 

1/x 

01 

X 

02 

( 

03 

stop 

04 

X 

05 

2 

06 

+ 

07 

1 

08 

) 

09 

X 

10 

1 

11 

8 

12 

0 

13 

= 

14 

sto 

15 

0 

16 

sin 

17 

x ^►V 

18 

rcl 

19 

0 

20 

cos 

21 

goto 

22 

0 

23 

0 

24 


25 


26 


27 


28 


29 


30 


31 


32 


33 


34 


35 


36 


37 


38 


39 


_ g(2k ♦ lllfl/N 

Execution: 

N/run/k/run/ 


40 

41 

4 2 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 


COMPLEX 
NUMBER 
RAISED 
TO A REAL 
POWER 


z = (x + jy)* 

Execution: 

x/x4^y/y/run/|x + iyl/t/run/ 
/x^y/ 

part of 2 

Error will be returned if t is too 
large. Only one value is returned 
for 2 - that corresponding to an 
argument of t times the principle 
argument of x 4- iy. 


17.7 


KEY 

# 

KEY 

# 

HALT 

00 

rcl 

40 

sto 

01 

1 

41 

0 

02 

X 

42 

x<«^y 

03 

rcl 

43 

sto 

04 

3 

44 

1 

05 

= 

45 

X 2 

06 

sto 

46 

+ 

07 

1 

47 

rcl 

08 

cos 

48 

0 

09 

X 

49 

X 2 

10 

( 

50 

= 

11 

rcl 

51 

y/* 

12 

2 

52 

sto 

13 

y* 

53 

2 

14 

rcl 

54 

stop 

15 

3 

55 

sto 

16 

= 

56 

3 

17 

sto 

57 

rcl 

18 

3 

58 

1 

19 

) 

59 

-r 

20 

= 

60 

rcl 

21 

sto 

61 

2 

22 

2 

62 

= 

23 

rcl 

63 

arc 

24 

1 

64 

cos 

25 

sin 

65 

sto 

26 

X 

66 

1 

27 

rcl 

67 

rcl 

28 

3 

68 

0 

29 

= 

69 

gin 

30 

x^^y 

70 

3 

31 

rcl 

71 

4 

32 

2 

72 

goto 

33 

goto 

73 

4 

34 

0 

74 

0 

35 

0 

75 

3 

36 


76 

6 

37 


77 

0 

38 


78 

- 

39 


79 














17.8 


KEY 

# KEY 

# 

HALT 

00 

40 

sto 

01 

41 

1 

02 

42 


03 sto 

43 

arc 

04 1 

44 

R 

05 x4^y 

45 

sto 

06 arc 

46 

0 

07 D ► R 

47 

rcl 

08 sto 

48 

1 

09 0 

49 

e x 

10 rcl 

50 

+ 

11 1 

51 

1/x 

12 e* 

52 

* 

13 + 

53 

2 

14 1/x 

54 

X 

15 * 

55 

rcl 

16 2 

56 

0 

17 x 

57 

sin 

18 rcl 

58 

= | 

19 0 

59 

sto 

20 cos 

60 

2 

21 

61 

rcl 

22 sto 

62 

1 

23 2 

63 

e* 

24 rcl 

64 

”1 

25 1 

65 

1/x 

26 e* 

66 

4* 

27 

67 

2 

28 1/x 

68 

X 

| 29 1 * 

69 

rcl 

30 2 

70 

0 

31 x 

71 

cos 

32 rcl 

72 

= 

33 0 

73 

x«4^y 

34 sin 

74 

rcl 

[36] 

75 

2 

36 +/- 

76 

goto 

37 x^y 

77 

0 

38 rcl 

78 

0 

39 2 

79 


sin (x 4- iy) = sin x cosh y 

+ i cos x sinh y 
cos(x + iy) = cos x cosh y 

— i sin x sinh y 

Pre-execution: 

sin: goto/0/1 
cos: goto/4/3 

Execution: 

x/x«*>y/y/run/ y/ 


18. SUMS AND MEANS 


18.1 Sum of squares 

18.2 Sum of products 

18.3 Harmonic sum 

18.4 Pythagorean sum 

18.5 Sum of series f(x,). 

18.6 Arithmetic mean 

18.7 Weighted mean 

18.8 Weighted mean, weights 
stored in memory 

18.9 Geometric mean 

18.10 Harmonic mean 

18.11 Root mean square 

18.12 General mean 

18.13 Normalized sum of products 




SUM OF 
SQUARES 


finds 

n 

lx? 

1 = 1 

Execution: 

x, /run/x 2 /run/ 
x 3 /run/... x n /run/ 


At each step the sum so far is 
displayed 

Before using the calculator for 
another purpose: clear. 


18.1 


KEY 

# 

KEY 

* 

HALT 

00 


40 

X 2 

01 


41 

+ 

02 


42 

goto 

03 


43 

0 

04 

44 

0 

05 


45 


06 


46 


07 


47 


08 


48 


09 


49 


10 


50 


11 

51 


12 

52 


13 

53 


14 

54 


15 

55 


16 

56 


17 

57 


18 

58 


19 

59 


20 

60 


21 

61 


22 

62 


23 

63 


24 

64 


25 

65 


26 

66 


27 

67 


28 

68 


29 

69 


30 

70 


31 

71 


32 

72 


33 

73 


34 

74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 




























18.2 


KEY # 

KEY 

# 

HALT 00 


40 

x 01 


41 

stop 02 


42 

+ 03 


43 

goto 04 


44 

0 05 


45 

0 06 


46 

07 


47 

08 


48 

09 


49 

10 


50 

11 


51 

12 


52 

13 


53 

14 


54 

15 


55 

16 


56 

17 


57 

18 


58 

19 


59 

20 


60 

21 


61 

22 


62 

23 


63 

24 


64 

25 


65 

26 


66 

27 


67 

28 


68 

29 


69 

30 


70 

31 


71 

32 


72 

33 


73 

34 


74 

35 


75 

36 


76 

37 


77 

38 


78 

39 


79 


finds 

n 

I XiVi 

Execution: 

x, /run/y, /run/ 
x 2 /run/y 2 /run/ 

.. ./x n /run/y n / 

run/ 

After each y, is entered, the sum 
so far, 

i 

X x,Y|, is displayed. 

l-i 

Remember to clear the calculator 
after using this program. 


HARMONIC 

SUM 

(E.G. LENSES 
IN SERIES) 



Execution: 

x,/run/x 2 /run/... 

... x n /run/ 

At each step the harmonic sum so 
far is displayed. 

To start again: 
goto/0/1/ 

Remember to clear the calculator 
before using it for something else. 


18.3 


KEY 

'# 

KEY 

# 

HALT 

00 


40 

1/x 

01 


41 

+ 

02 


42 

( 

03 


43 

1/X 

04 


44 

stop 

05 


45 

1/x 

06 


46 

) 

07 


47 

goto 

08 


48 

0 

09 


49 

2 

10 


50 


11 


51 


12 


52 


13 


53 


14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 
















KEY 

* 

KEY 


HALT 

00 


40 

X 2 

01 


41 

-1- 

02 


42 

( 

03 


43 

v/x 

04 


44 1 

stop 

05 


45 

X 2 

06 


46 

) 

07 


47 

goto 

08 


48 

0 

09 


49 

2 

10 


50 


11 


51 


12 


52 


13 


53 


14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


PYTHAGO 184 
REAN SUM 

(AS IN THE 
THEOREM OF 
THAT NAME) 

X = Vx? + X? + . . . + xS 

Execution: 

x, /run/x 2 /run/ 

... x„/run/ 

At each stage the Pythagorean sum 
so far is displayed. 

To start again go to /0/1 / 

Remember to clear the calculator 
before using it for something else. 



















18.5 


SUM OF 
SERIES F(xj) 


Finds 

I f(x,) 

»*» 

Write a program segment to 
evaluate fix t )where x. is on 
display. Insert it in the program 
opposite. 

Execution: 

0/run/x, /run/x 2 /run/ 

.. . x„/run/ 

At each stage sum so far is 
displayed. 

Remember in writing your program 
not to use more than one level of 
parenthesis, as one level is already 
used. 


KEY 

# 

KEY 

# 

HALT 

00 


40 

+ 

01 


41 

( 

02 


42 

stop 

03 


43 

Y 

04 


44 

0 

5 


45 

U 

06 


46 

R 

07 


47 

S 

08 


48 

E 

G 

09 


49 

M 

10 


50 

E 

11 


51 

N 

12 


52 

T 

13 


53 

) 

14 


54 

= 

15 


55 

goto 

16 


56 

0 

17 


57 

1 

18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


3b 


75 


36 


76 


37 


77 


38 


78 


39 


79 



















KEY 

* 

KEY 

# 

HALT 

00 


40 

+ 

01 


41 

( 

02 


42 

stop 

03 


43 

sto 

04 


44 

0 

05 


45 

+ 

06 


46 

rcl 

07 


47 

0 

08 


48 

1/x 

09 


49 

= 

10 


50 

arc 

11 


51 

D ► R 

12 


52 

cos 

13 


53 

+ 

14 


54 

rcl 

15 


55 

0 

16 


56 

= 

17 


57 

1/x 

18 


58 

) 

19 


59 


20 


60 

goto 

21 


61 

0 

22 


62 

1 

23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


Example: 

To find 


18.5(ii) 


i " , (x l + cos|xi+J-|) 


(x, in radians) 


Xj + COS | X| + ^-j 

so a suitable program segment is 
sto/0/+/rcl/0/ 

— / = /arc/D ► R/cos/ 
x 

+ /rcl/0/=/—/ 
x 


The complete program is as 
opposite. 

0/run/3/run/5/ 

run/7/run/9/ 

run/ 

So--- 

3 + cos (3 + $) 

+ 5 + cos (5 + $) 

+ 1 

7 + cos (7 + 1) 


+ 9 + cos (9 + i) 
= .93324 





























ARITHMETIC 

MEAN 


Execution: 

x i /run/xj/run/ 

... /x„/run/ 

At each stage the arithmetic mean 
so far is displayed 

To start again: 
goto/0/1/ 


18.6 


KEY 

* 

KEY 

* 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

1 

03 


43 

sto 

04 


44 

1 

05 


45 

rcl 

06 


46 

0 

07 


47 

stop 

08 


48 

M + 

09 


49 

0 

10 


50 

1 

11 


51 

M + 

12 


52 

1 

13 


53 

rcl 

14 


54 

0 

15 


55 

-r 

16 


56 

rcl 

17 


57 

1 

18 


58 

= 

19 


59 

goto 

20 


60 

0 

21 


61 

8 

22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 














KEY 

# 

KEY 

# 

HALT 

00 


40 

X 

01 


41 

stop 

02 


42 

= 

03 


43 

sto 

04 


44 

0 

05 


45 

1 

06 


46 

sto 

07 


47 

1 

08 


48 

stop 

09 


49 

X 

10 


50 

stop 

11 


51 

= 

12 


52 

M + 

13 


53 

0 

14 


54 

1 

15 


55 

M + 

16 


56 

1 

17 


57 

rcl 

18 


58 

0 

19 


59 

| -p 

20 


60 

rcl 

21 


61 

1 

22 


62 

= 

23 


63 

goto 

24 


64 

0 

25 


65 

9 

26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


WEIGHT ,87 

MEAN 


w = w,x, + w,x, + ... + w n x„ 

n 


Execution: 

W t /run/X, /run/ 

Wj/run/X 2 /run/ 

.. W n /run/X n / 
run/ 

At each stage (after entering x,)W 
so far is displayed. 

To start again: 
goto/0/1/ 



WEIGHTED 
MEAN 
(SEVEN OR 
FEWER 
ENTRIES) 

w,x, + W 3 X 2 + ... + W 7 X 7 
w =- ! - * 7 - 

This program can be adapted to 
fewer than seven entries by omit¬ 
ting the parts referring to the 
unused memories. 

It can be used with fewer than 
seven entries without modification 
if 

goto/0/1/ 

is used prior to each execution. 

Pre-execution: 

Store W, toW 7 in memories 0 to 
6 respectively. The program may 
now be used many times without 
re-entering the weights. 


KEY 

HALT 

x 

rcl 

0 

-I- 

( 

stop 

x 

rcl 

1 

) 

+ 

( 

2 

stop 

X 

rcl 

2 

) 

+ 

( 


Execution: 

X , /run/X 2 /run/X 3 /run/. .. 
. .. /X 7 /run/ 

After each entry the weighted 
mean so far is displayed. 


3 

stop 

rcl 

3 

) 

+ 

( 


4 


stop 


rcl 

4 















18.9 


KEY 

# 

KEY 

# 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

1 

03 


43 

sto 

04 


44 

1 

05 


45 

rcl 

06 


46 

0 

07 


47 

stop 

08 


48 

x 

09 


49 

rcl 

10 


50 

0 

11 


51 

= 

12 


52 

sto 

13 


53 

0 

14 


54 

1 

15 


55 

M + 

16 


56 

1 

17 


57 

rcl 

18 


58 

0 

19 


59 

y« 

20 


60 

rcl 

21 


61 

1 

22 


62 

1/x 

23 


63 

= 

24 


64 

goto 

25 


65 

0 

26 


66 

8 

27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


GEOMETRIC 

MEAN 


Execution: 

x, /run/x 2 /run/ 

... x n /run/ 


At each stage the geometric mean 
so far is displayed. 

To start again 
goto/0/1/ 















HARMONIC 

MEAN 


Execution: 

x) /run/Xj/run/ 

... x„/run/ 

At each stage the harmonic mean 
so far is displayed. 

To start again: 
got o/O/l/ 


18.10 


KEY 

# 

KEY 

_ 

HALT 

00 


40 

1/x 

01 


41 

sto 

02 


42 

0 

03 


43 

1 

04 


44 

sto 

05 


45 

1 

06 


46 

rcl 

07 


47 

0 

08 


48 

1/x 

09 


49 

stop 

10 


50 

1/x 

11 


51 

M + 

12 


52 

0 

13 


53 

1 

14 


54 

M + 

15 


55 

1 

16 


56 

rcl 

17 


57 

0 

18 


58 

+ 

19 


59 

rcl 

20 


60 

1 

21 


61 

= 

22 


62 

1/x 

23 


63 

goto 

24 


64 

1 

25 


65 

0 

26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


















18.11 


KEY 

# 

KEY # 


HALT 

00 

40 


x a 

01 

41 


sto 

02 

42 


0 

03 

43 


1 

04 

44 


sto 

05 

45 


1 

06 

46 

_ /xj+xj-K.. + x a 

rcl 

07 

47 

v n 

0 

08 

48 


n/x 

09 

49 

Execution: 

stop 

10 

50 

x, /run/x 2 /run 

X 2 

11 

51 

... x n /run/ 

M + 

12 

52 





At each stage the r.m.s. so far 

0 

13 

53 

displayed. 

1 

14 

54 


M -l- 

15 

55 

To start again: 

1 

16 

56 

goto/0/1/ 

rcl 

17 

57 


0 

18 

58 



19 

59 


* 

20 

60 


rcl 

21 

61 


1 

22 

62 


= 

23 

63 


goto 

24 

64 


1 

25 

65 


0 

26 

66 



27 

67 



28 

68 



29 

69 



30 

70 



31 

71 



32 

72 



33 

73 



34 

74 



35 

75 



36 

76 



37 

77 



38 

78 



39 

79 





GENERAL 

MEAN 


£ f(X|,i) 

g(n) = —- 

n 

Write a program segment to find 
f(x,.i) 

where x, is in memory 0 and i is 
in memory 1. (The principle here 
is the same as in the program to 
sum the series f(x,).) 

Execution: 

0/run/x,/run/x 2 / 
run/.. ./x n /run/ 

After each entry g(i) so far is 
displayed 

To start again: 
got o/O/l/ 



18.12 


KEY 

# 

KEY 

# 

HALT 

00 

goto 

40 

sto 

01 

0 

41 

2 

02 

5 

42 

sto 

03 

43 

1 

I _ 

04 

44 

stop 

05 


45 

sto 

06 


46 

C 

) 

07 


47 

1 

08 


48 

M + 

09 


49 

1 

1 

10 


50 



11 


51 



12 


52 



13 


53 



14 


54 

Y 

15 


55 

0 

U 

16 


56 

R 

17 


57 



18 


58 

c 

E 

r 


19 


59 


20 


60 

M 

21 


61 

E 

22 


62 

N 

23 


63 

1 

1 

24 


64 



25 


65 



26 


66 



27 


67 



28 


68 



29 


69 



30 


70 



31 


71 

M + 

32 


72 

2 

> 

33 


73 

rcl 

34 


74 

2 

l 

35 


75 



36 


76 

rcl 

37 


77 


1 

38 


78 



39 


79 










18.13 


KEY # 

KEY 

# 

HALT 00 


40 

sto 01 


41 

0 02 


42 

x 03 


43 

stop 04 


44 

= 05 


45 

sto 06 


46 

1 07 

47 

-5- 08 

48 

rcl 09 

49 

0 10 

50 

= 11 

51 

stop 12 

52 

M + 13 

53 

0 14 

54 

x 15 

55 

stop 16 

56 

= 17 

57 

M + 18 

58 

1 19 

59 

rcl 20 

60 

1 21 

61 

goto 22 

62 

0 23 

63 

8 24 

64 

25 

65 

26 

66 

27 

67 

28 

68 

79 

69 

30 

70 

31 

71 

32 

72 

33 

73 

34 

74 

35 

75 

36 

76 

37 

77 

38 

78 

39 

79 



Execution: 

x,/run/y t / 

run/x 3 /run/y 3 /run/ 

.. ./x n /run/y n /run/ 

At each stage the normalised sum 
so far is displayed after y,/run/. 

To start again: 
goto/0/1 /. 

If the x, are always the same and 
you do not wish to re-enter them 
for each execution and there are 
seven or less of them, use program 
8 omitting */7/= at step 61. 

w = x,/£ x„ 

i»1 


19. EQUATION SOLVING 

19.1 Quadratic equations 

19.2 Simultaneous equations in two 
variables 


To solve simultaneous 
equations in three variables 
use Cramer's rule: 

if a, x + b,y + c, z = d, 

a 2 x + b 2 y + c 2 z = d 2 
a 3 x + b 3 y + c 3 z = d 3 


then x 


d, 

d 2 

d 3 


a, 


y 


a 2 


a 3 


3i 

a 2 
a 3 


b, 
b 2 
b 3 

d, 
d 2 

^3 

bi 

b 2 

^3 


Cl 


c 2 


+ A 


C 3 


Cl 


C 2 


+ A 


C 3 


di 

d 2 
d 3 


+ A 


z 








191 ii) 


where A = 


a i 

a 2 

a 3 


bi c, 
b 2 C2 
b 3 c 3 


Use the program in Section 26 
for 3 x 3 determinants 

For simultaneous equations in 
more variables Cramer's rule 
can still be used and the deter¬ 
minant program is still helpful. 

19.3 Cubic equations — by the 
Newton Raphson Method 

19.4 Finds the reduced cubic 

19.5 Finds the roots of a reduced 
cubic in the case in which 
there are three real unequal 
roots — we leave the general 
implementation of Cardan's 
method as a challenge to the 
reader. 

19.6 Interval halving 




19(iii) 


19.7 Newton-Raphson method 

19.8 Secant method 

We recommend method 6. as 
the best way to solve all 
equations in one variable 
apart from quadratics 


QUADRATIC 


EQUATIONS 

KEY 

& 

KEY 

# 

HALT 

00 

rcl 

40 


sto 

01 

1 

41 


0 

02 

stop 

42 


stop 

03 

rcl 

43 


r- 

04 

0 

44 


2 

05 

+/— 

45 


T 

06 

V'"x 

46 

To solve ax 2 + bx + c = 0 

rcl 

07 

= 

47 

Execution: 

0 

+/- 

08 

09 

goto 

0 

48 

49 

a/run/b/run/c/ 
run/ /run/ 

sto 

10 

11 

0 

50 

51 

where x are the roots 

- b ± y/b 2 - 4ac 
* ~ 2a 

1 

X 2 

12 

13 

14 


52 

53 

54 


( 

15 


55 

If Error is displayed the equation 

stop 

16 


56 

has complex roots 

■r 

17 


57 

x ± iy 

rcl 

18 


58 

use the following sequence: 

0 

19 


59 

C/goto/4/0/run 

/run/ 

FT 

20 

21 


60 

61 


sto 

22 


62 


0 

23 


63 


>/x 

24 


64 


+ 

25 


65 


rcl 

26 


66 


1 

27 


67 


= 

28 


68 


stop 

29 


69 


rcl 

30 


70 


1 

31 


71 


- 

32 


72 


rcl 

33 


73 


0 

34 


74 


n/x 

35 


75 


= 

36 


76 


goto 

37 


77 


0 

38 


78 


0 

39 


79 




^ SIMUL 


KEY 

HALT 

g 

00 

KEY 

( 

# 

40 

TANEOUS 

sto 

01 

rcl 

41 

EQUATIONS 

0 

stop 

02 

03 

1 

X 

42 

43 

1 (SI "T* W O 

sto 

04 

rcl 

44 

VARIABLES 

1 

05 

5 

45 


stop 

06 

) 

46 

a,x + b,y = c. 

sto 

07 

-r 

47 


2 

08 

rcl 

48 

a*x + b 2 y = c 2 

stop 

09 

6 

49 

L waoi i f i An ' 

sto 

10 

= 

50 

t xecuxion. 

3 

11 

stop 

51 

a, /run/b^run/c,/ 

stop 

12 

rcl 

52 

run/a 2 /mn/b 2 / 

sto 

13 

0 

53 

run/c a /run/ / 

4 

14 

X 

54 

run/ 

stop 

15 

rcl 

55 

If Error is indicated there is no 

sto 

16 

5 

56 

unique solution. 

5 

17 

— 

57 


rcl 

18 

1 

58 


0 

19 

rcl 

59 


X 

20 

3 

60 


rcl 

21 

X 

61 


4 

22 

rcl 

62 


- 

23 

2 

63 


( 

24 

) 

64 


rcl 

25 

+ 

65 


3 

26 

rcl 

66 


X 

27 

6 

67 


rcl 

28 

= 

68 


1 

29 

goto 

69 


) 

30 

0 

70 


= 

31 

0 

71 


sto 

32 


72 


6 

33 


73 


rcl 

34 


74 


2 

35 


75 


X 

36 


76 


rcl 

37 


77 


4 

38 


78 


- 

39 


79 




SOLUTION 
OF A CUBIC 
BY THE 
NEWTON 
RAPHSON 
METHOD 


fix) = ax 3 + bx 2 + cx + d = 0 

Successive approximations x, to a 
root of f are found by 

2ax? + bxf-d 

xei =—i - ! - 

3axf + 2bxi -f c 

Choose x„ 

Pre-execution: 

goto/0/1 

Execution: 

a/run/b/run/c/run/ 
d/run/x 0 /run/ 

/run/ 

/run/ 

/run/- etc 

If the x, fail to converge try a 
different x 0 . Remember that 
there are three distinct real roots 
only if A < 0 where A is defined 
in program 5. 


19.3 


KEY 

f 

KEY 

r? 

HALT 

00 

( 

40 

sto 

01 

rcl 

41 

0 

02 

1 

42 

stop 

03 

x 

43 

sto 

04 

2 

44 

1 

05 

) 

45 

stop 

06 

X 

46 

sto 

07 

rcl 

47 

2 

08 

4 

48 

stop 

09 

+ 

49 

sto 

10 

rcl 

50 

3 

11 

2 

51 

stop 

12 

) 

52 

sto 

13 

= 

53 

4 

14 

goto 

54 

X 

15 

1 

55 

2 

16 

2 

56 

X 

17 


57 

rcl 

18 


58 

0 

19 


59 

+ 

20 


60 

rcl 

21 


61 

1 

22 


62 

X 

23 


63 

rcl 

24 


64 

4 

25 


65 

x 2 

26 


66 


27 


67 

rcl 

28 


68 

3 

29 


69 

* 

30 


70 

( 

31 


71 

rcl 

32 


72 

4 

33 


73 

X 

34 


74 

3 

35 


75 

X 

36 


76 

rcl 

37 


77 

0 

38 


78 

+ 

39 


79 
















KEY 

# KEY 

# 

HALT 

00 rcl 

40 

sto 

01 2 

41 

0 

02 ) 

42 

stop 

03 + 

43 

~ 

04 9 

44 

rcl 

05 + 

45 

0 

06 rcl 

46 

= 

07 0 

47 

sto 

08 = 

48 

1 

09 goto 

49 

stop 

10 0 

50 

= 

11 0 

51 

sto 

12 

52 

2 

13 

53 

stop 

14 

54 

= 

15 

55 

sto 

16 

56 

0 

17 

57 

rcl 

18 

58 

1 

19 

59 

X 2 

20 

60 

4 . 

21 

61 

3 

22 

62 

+/- 

23 

63 

•f 

24 

64 

rcl 

25 

65 

2 

26 

66 

= 

27 

67 

stop 

28 

68 

X 

29 

69 

rcl 

30 

70 

1 

31 

71 

+/- 

32 

72 

X 

33 

73 

2 

34 

74 

- 

35 

75 

( 

36 

76 

rcl 

37 

77 

1 

38 

78 


39 

79 


REDUCED 194 
CUBIC 


Substituting 



into 

ax 3 + bx 2 + cx + d = 0 

we obtain 

Y 3 + py + q = 0 

Execution: 

a/run/b/run/c/run 
d/run/ /run/ 



CARDAN'S 

METHOD 


Solution of 
y 3 + py + q = 0 
in the case 



i.e. three unequal real roots. 


The roots are 
Vi = u + v 


y,= —“±-%!^-V iv/§ 


Vj “ - 

where 


u i+va 

v-V-f-vi 


19.5 


KEY 

# 

KEY 

# 

HALT 

00 

0 

40 

X 2 

01 

= 

41 

V* 

02 

cos 

42 

+ 

03 

X 

43 

3 

04 

rcl 

44 

= 

05 

0 

45 


06 

X 

46 

sto 

07 

2 

47 

0 

08 

+/- 

48 

X 2 

09 

= 

49 

X 

10 

stop 

50 

rcl 

11 

rcl 

51 

0 

12 

1 

52 

= 

13 

— 

53 

1/x 

14 

6 

54 

X 

15 

0 

55 

Stop 

16 

= 

56 


17 

cos 

57 

2 

18 

X 

58 

+/- 

19 

rcl 

59 

= 

20 

0 

60 

arc 

21 

X 

61 

cos 

22 

2 

62 

i 

23 

+/- 

63 

3 

24 

= 

64 

= 

25 

goto 

65 

sto 

26 

0 

66 

1 

27 

0 

67 

cos 

28 


68 

X 

29 


69 

rcl 

30 


70 

0 

31 


71 

x 

32 


72 

2 

33 


73 

= 

34 


74 

stop 

35 


75 

rcl 

36 


76 

1 

37 


77 

+ 

38 


78 

6 

39 


79 


Execution: 

p/run/q/run/ / 
run/ /run/ 
















KEY 

HALT 

sto 

2 

stop 

sto 

1 

rcl 

2 

sto 

0 

goto 

1 

7 

rcl 

2 

sto 

1 

rcl 

0 

+ 

rcl 

1 

2 

sto 

2 


# 

KEY 

* 

00 



40 

01 



41 

02 



42 

03 



43 

04 



44 

05 

gin 

45 

06 


1 

46 

07 

3 

47 

08 

+/- 

48 

09 

gin 

39 

10 

( 

) 

50 

11 

6 

51 

12 

rcl 

52 

13 


2 

53 

14 

stop 

54 

15 

goto 

55 

16 

( 

) 

56 

17 


1 

57 

18 



58 

19 



59 

20 



60 

21 



61 

22 



62 

23 



63 

24 



64 

25 



65 

26 



66 

27 



67 

28 



68 

29 



69 

30 



70 

31 



71 

32 



72 

33 



73 

34 



74 

35 



75 

36 



76 

37 



77 

38 



78 

39 



79 


EQUATION 196 
SOLVING BY 
INTERVAL 
HALVING 

(to 7 sig fig) 

To solve 
f(x) = 0 

write a program segment to 
evaluate f(x) when x is in 
memory 2. 

Choose x and y such that 
f(x)>0, f(y) < 0 

Execution: 

x/run/y/run/ 
where f(x 0 ) = 0. 
f should be continuous in the 
range concerned - we 
recommend drawing a sketch 
graph of f first. 

Find all the roots by using 
different starting values x 
and y. 

This program may take 
several minutes to execute. 


f(rc!2) 












Example: 

To solve 
cos x = x 
sketch graph: 


19.6lii) 



There is a solution between 0 and 


f(x) = cos x — x 
fix) > 0, f(|)<0 

Our program segment is 
rcl/2/arc/D ► R/cos/-/rcl/2/= 


Execution: 

0/run /ir/+/2/=/run/ 

7 .3908 - 01 

To recover last three digits: 

x/10/=/ 

7.3908513 

So answer is 
.73908513 radians. 

Note that the accuracy here is limited by the accuracy of the 
cosine function. 




19.7 


KEY 

# 

KEY 

# 

HALT 

00 


40 

sto 

01 


41 


3 

02 


42 



03 


43 



04 


44 



05 


45 



06 


46 



07 


47 



08 


48 



09 


49 


i 

10 


50 

0 

11 


51 

U 

12 


52 

R 

13 


53 

S 


14 


54 

E 

15 


55 

G 

M 

E 

16 


56 

17 


57 

N 

18 


58 

1 

r 

19 


59 



20 


60 



21 


61 



22 


62 



23 


63 



24 


64 



25 


65 



26 


66 



27 


67 

+/- | 

28 

68 

+ 

29 

69 

rcl 

30 

70 

0 

31 

71 



32 

72 

goto 

33 


73 

0 

34 


74 

0 

35 


75 



36 


76 



37 


77 



38 


78 



39 


79 


To solve f(x) = 0. 

Draw a sketch graph as usual. 
Write a program segment to 
evaluate f(x)/f '(x) (x in memory 
0), and insert in the program 
opposite. Let x 0 be your first 
approximation. 

Execution: 

x 0 /run/ 

/run/ 

/run/ 


where x, are the convergents to 
the root nearest x 0 . If x, fails to 
converge try a different x 0 . 




SECANT 

METHOD 

f(x) = 0 

Draw a sketch graph of f and find 
an approximation x , to a root of 
f(x) = 0 

Find an approximation, k, to the 
slope of f at x, - e.g. 

k _ W-fU) 

v Z 

where r/ is just a bit more than x,, 
and £ a bit less. 

Write a program segment to 
evaluate f(x) where x is in memory 
1 and insert it in the program given 
here. 

Execution: 

k/run/x,/run/ /run/ /run/ J 
run .. . 

where x 2 , x 3 . x 4 .. . . are success 
ive approximations to a root of 
f(x) = 0 , 

given by the iteration 
f(x„) 

X n = X n --- 

If the x, are converging too slowly 
decrease k by: 

goto/ 0 / 1 /new k/run/x„/run . .. 
etc. 

If the x, are diverging increase k 
in the same way. 

By varying the starting value x , to 
values near other roots (look at 
your sketch graph), the more 
precise values of these roots can 
be found as well. 


19.8 


KEY 

# 

KEY 

= 

HALT 

00 


40 

sto 

01 


41 

( 

) 

02 


42 

stop 

03 


43 

sto 

04 


44 


1 

05 


45 



06 


46 



07 


47 



08 


48 

f(x) 

09 


49 



10 


50 



11 


51 



12 


52 



13 


53 



14 


54 



15 


55 



16 


56 

rcl 

17 


57 

0 

18 


58 

+/- 

19 


59 

-1 


20 


60 

rcl 

21 


61 

1 

22 


62 



23 


63 

goto 

24 


64 

C 

) 

25 


65 

3 

1 

26 


66 



27 


67 



28 


68 



29 


69 



30 


70 



31 


71 



32 


72 



33 


73 



34 


74 



35 


75 



36 


76 



37 


77 



38 


78 



39 


79 

















KEY 

# KEY 

- 

HALT 

00 

40 

sto 

01 

41 

0 

02 

42 

stop 

03 

43 

sto 

04 

44 

1 

05 

45 

arc 

06 

46 

D ► R 

07 

47 

sin 

08 

48 

, - 

09 

49 

rcl 

10 

50 

1 

11 

51 

1/x 

12 

52 

= 

13 

53 


14 

54 

rcl 

15 

55 

0 

16 

56 

+/- 

17 

57 

+ 

18 

58 

rcl 

19 

59 

1 

20 

60 

= , 

21 

61 

goto 

22 

62 

0 

23 

63 

3 

24 

64 


25 



26 

66 


27 

67 


28 

68 


29 

69 


30 

70 


31 

71 


32 

72 


33 

73 


34 

74 


35 

75 


36 

76 


37 

77 


38 

78 


39 

79 


Example: 


To solve sin x = — 


19.8(ii) 



Take x* = 1 


fix) = sin x- 

x 

k = slope of sin x — slope of - 

= about ~ — (- 1) 

_ 3 
2 

Program segment is 
arc/D ► R/sin/—/rcl/1/V x /= 

Program is as opposite 

Execution: 

1.5/run/ 

1/run/ 

/run/ 

/run/ 

/run/ 

/run/ 

/run/ 

/run/ 

/run/ 

/run/ 

So answer is 
1.1141571 




20. SERIES AND 
PROGRESSIONS 

20.1 Natural numbers 

20.2 Natural numbers (alternative 
program) 

20.3 Arithmetic progression 

20.4 Geometric progression 

20.5 Infinite geometric progression 

20.6 Harmonic progression 

20.7 Arithmetico-geometric 
progression 

20.8 Infinite arithmetico-geometric 
progression 

20.9 Summing general series 

20.10 Summing general series to 
infinity 



SUMS OF 
POWERS OF 
THE 

NATURAL 

NUMBERS 

1 + 2 + ... + n = 5 n{n + 1) 

n 

I i 2 = | n(n + 1 )( 2 n + 1 ) 

i»i 

£i 3 = jn 2 (n + IP 

i*l 

The program has been written in 
such a way that the program seg 
ments corresponding to the above 
sums may be extracted from the 
program and used on their own. 

Execution: 

(a) goto/ 0 / 1 /n/run/ 


(b) goto/1/5/n/run/ 


(c) goto/4/0/n/run/ 


20.1 


KEY 

i & 

KEY 

- 

HALT 

00 

X 

40 

X 

01 

( 

41 

( 

02 

+ 

42 

+ 

03 

1 

43 

1 

04 

) 

44 

) 

05 


45 


06 

X 2 

46 

2 

07 

+ 

47 

= 

08 

4 

48 

stop 

09 

= 

49 

goto 

10 

stop 

50 

0 

11 

goto 

51 

1 

12 

4 

52 


13 

0 

53 


14 


54 

X 

15 


55 

( 

16 


56 

+ 

17 


57 

1 

18 


58 

= 

19 


59 

* 

20 


60 

1 

21 


61 

X 

22 


62 

2 

23 


63 

— 

24 


64 

1 

25 


65 

> 

26 


66 

) 

27 


67 

* 

28 


68 

6 

29 


69 

= 

30 


70 

stop 

31 


71 

goto 

32 


72 

1 

33 


73 

5 

34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 

























20.2 


KEY 

# 

HALT 

00 

sto 

01 

0 

02 

X 

03 

( 

04 

+ 

05 

1 

06 

) 

07 

1 * 

08 

2 

09 

= 

10 

stop 

11 

X 

12 

( 

13 

X 2 

14 

sto 

15 

1 

16 

rcl 

17 

0 

18 

1 * 

19 

2 

20 

+ 

21 

1 

22 

) 

23 

* 

24 

3 

25 

= 

26 

stop 

27 

rcl 

28 

1 

29 

goto 

30 

0 

31 

0 

32 


33 


34 


35 


36 


37 


38 


39 


Execution: 

n/run/ i/run/ 

/run/ 


# 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

30 

51 

53 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 


ARITHMETIC 

PROGRESSION 


20.3 


a, a + d, a + 2d,... 
n th term, 5 = a + (n — 1 )d 
sum to n terms, 
n(a + 8) 

5 “ 

common difference. 


Execution: 

(a) a/run/n/run/d/ 
run/'/run/ 

OR 

(b) a/run/n/run/C 
goto/3/1/run/ /run/ 


KEY 

# 

KEY 

# 

HALT 

00 

) 

40 

sto 

01 

= 

41 

0 

02 

stop 

42 

stop 

03 

X 

43 

sto 

04 

( 

44 

1 

05 

rcl 

45 

stop 

06 

1 

46 

X 

07 

- 

47 

( 

08 

1 

48 

rcl 

09 

) 

49 

1 

10 

-r 

50 

- 

11 

2 

51 

1 

12 

+ 

52 

) 

13 

rcl 

53 

+ 

14 

0 

54 

rcl 

15 

X 

55 

0 

16 

rcl 

56 

= 

17 

1 

57 

stop 

18 

= 

58 

+ 

19 

goto 

59 

rcl 

20 

0 

60 

0 

21 

0 

61 

X 

22 


62 

rcl 

23 


63 

1 

24 


64 

-r 

25 


65 

2 

26 


66 

= 

27 


67 

goto 

28 


68 

0 

29 


69 

0 

30 


70 

— 

31 


71 

rcl 

32 


72 

0 

33 


73 

+ 

34 


74 

( 

35 


75 

rcl 

36 


76 

1 

37 


77 

- 

38 


78 

1 

39 


79 















20.4 


KEY 

# 

KEY 


HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

stop 

03 


43 

sto 

04 


44 

1 

05 


45 

Y* 

06 


46 

( 

07 


47 

stop 

08 


48 

— 

09 


49 

1 

10 


50 

) 

11 


51 

X 

12 


52 

rcl 

13 


53 

0 

14 


54 

= 

15 


55 

stop 

16 


56 

X 

17 


57 

rcl 

18 


58 

1 

19 


59 

z 

20 


60 

rcl 

21 


61 

0 

22 


62 

* 

23 


63 

( 

24 


64 

rcl 

25 


65 

1 

26 


66 

— 

27 


67 

1 

28 


68 

) 

29 


69 


30 


70 

goto 

31 


71 

0 

32 


72 

0 

33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


GEOMETRIC 

PROGRESSION 


_ a(1 -r") 

1 -r 

Execution: 

a/run/r/run/n/ 
run/ /run/ 


Range: r > 0, r =* 1. 








INFINITE 

GEOMETRIC 

SERIES 



Providing ir < 1 


Execution: 

a/run/r/run/ 


20.5 


KEY 

« 

KEY 

fr 

HALT 

00 


40 

* 

01 


41 

( 

02 


42 

1 

03 


43 


04 


44 

stop 

05 


45 

) 

06 


46 

= 

07 


47 

goto 

08 


48 

0 

09 


49 

0 

10 


50 


11 


51 


12 


52 


13 


53 


14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 





















KEY 

# 

KEY 

# 

HALT 

00 

goto 

40 

sto 

01 

0 

41 

3 

02 

0 

42 

stop 

03 


43 

sto 

04 


44 

4 

05 


45 

stop 

06 


46 

sto 

07 


47 

1 

08 


48 

0 

09 


49 

sto 

10 


50 

2 

11 


51 

sto 

12 


52 

0 

13 


53 

rcl 

14 


54 

0 

15 


55 

X 

16 


56 

rcl 

17 


57 

4 

18 


58 

+ 

19 


59 

rcl 

20 


60 

3 

21 


61 

= 

22 


62 

1/x 

23 


63 

M + 

24 


64 

2 

25 


65 

1 

26 


66 

M + 

27 


67 

0 

28 


68 

rcl 

29 


69 

0 

30 


70 

— 

31 


71 

rcl 

32 


72 

1 

33 


73 

= 

34 


74 

gin 

35 


75 

1 

36 


76 

4 

37 


77 

rcl 

38 


78 

2 

39 


79 


HARMONIC 206 
SERIES 


S = — 4* -- +- 

a a d a + 2d 

+ + a + (n-1)d 

Execution: 

a/run/d/run/n/ 
run / 

Restriction: 

For no m < n may a + (m — 1 )d 
= 0 








ARITHMETICO- 


GEOMETRIC 

SERIES 


a, (a + d)r, (a + 2d)r 2 , 
.... (a + In — 1)d)r n_1 

Sum to n terms = S 
ndr n 
r — 1 

1 - r"/ . dr \ 

T^rl a + w! 

Execution: 

a/run/d/run/r/ 

run/n/run/ 

Restriction: 
r >0 
r -M 


KEY 

| # 

KEY 

5? 

HALT 

00 

rcl 

40 

+ 

01 

0 

41 

( 

02 

) 

42 

stop 

03 

* 

43 

sto 

04 

( 

44 

0 

05 

rcl 

45 

X 

06 

1 

46 

stop 

07 

— 

47 

sto 

08 

1 

48 

1 

09 

.) 

49 

* 

10 


50 

{ 

11 

goto 

51 

1 

12 

0 

52 

— 

13 

0 

53 

rcl 

14 


54 

1 

15 


55 

) 

16 


56 

) 

17 


57 

X 

18 


58 

I 

19 


59 

rcl 

20 


60 

1 

21 


61 

Y* 

22 


62 

stop 

23 


63 

sto 

24 


64 

2 

25 


65 

- 

26 


66 

1 

27 


67 

) 

28 


68 

+ 

29 


69 

I 

30 


70 

rcl 

31 


71 

1 

32 


72 

y * 

33 


73 

rcl 

34 


74 

2 

35 


75 

X 

36 


76 

rcl 

37 


77 

2 

38 


78 

X 

39 


79 




20 

ARITH- 

METICO- 

GEOMETRIC 

SERIES 


Sum to infinity. 


|r| < 1 

Execution: 

a/run/d/run/r/run/ 





























SUMMING A 


GENERAL 

SERIES 

KEY 

£ 

KEY 

# 

HALT 

sto 

00 

01 



40 

41 


i 

D 

02 



42 


i 

0 

03 



43 


sto 

04 



44 



2 

05 



45 

Write a program segment to 

stop 

06 



46 

evaluate f(n) where n is in memory 

sto 

07 

M 

+ 

47 

0, and insen the segment in the 


1 

08 

2 

I 

48 

program opposite. The program 



09 

rcl 

49 

will then find 



10 

C 

1 

50 

I f(n) 

n = » 



11 

12 

4 

1 


51 

52 

Execution: 



13 

14 

sto 

53 

54 

a/run/b/run/ 



15 

Q 


55 

Example: 

c 


16 

17 

rcl 

56 

57 

V cosll —~W 
n~3 \ n / 

r 

A 

C 

18 

19 

1 


58 

59 

jl -^)jt radians is 

E 

p 

20 

21 

1 


60 

61 

18011 — ^ | degrees so a suitable 

0 

R 

22 

23 

gin 

0 

62 

63 




24 

9 


64 

program segment is 

r 

o 

25 

rcl 

65 

rcl 0 i * 471/x/1/8/0/ = /cos 

U 

R 

26 

27 

2 

goto 

66 

67 

The program is then entered as on 
the back of this page. 

f( 

i) 

28 

29 

0 

0 


68 

69 



30 



70 




31 



71 




32 



72 




33 



73 




34 



74 




35 



75 




36 



76 




37 



77 




38 



78 



’ 

39 



79 


























KEY 

# 

KEY 

* 

HALT 

00 

2 

40 

sto 

01 

goto 

41 

0 

02 

0 

42 

0 

03 

0 

43 

sto 

04 


44 

2 

05 


45 

stop 

06 


46 

sto 

07 


47 

1 

08 


48 

rcl 

09 


49 

0 

10 


50 

1/x 

11 


51 

+/- 

12 


52 

+ 

13 


53 

1 

14 


54 

X 

15 


55 

1 

16 


56 

8 

17 


57 

0 

18 


58 

= 

19 


59 

cos 

20 


60 

M + 

21 


61 

2 

22 


62 

rcl 

23 


63 

0 

24 


64 

+ 

25 


65 

1 

26 


66 

= 

27 


67 

sto 

28 


68 

0 

29 


69 

— 

30 


70 

rcl 

31 


71 

1 

32 


72 

- 

33 


73 

1 

34 


741 

’ = 

35 


75 

gin 

36 


76 

0 

37 


77 

9 

38 


78 

rcl 

39 


79 


Example of run 
3/run/7/run/ 



-3.783 


20.9(ii) 






SUMMING A 


GENERAL 

KEY 

HALT 

•f 

00 

01 

KEY 

v 

* 

40 

41 

SERIES 

T 

0 

TO INFINITY 

< 

X 2 

02 

03 

u 

R 

42 

43 


- 

04 



44 


1 

05 

s 

45 


./EE 

06 

1 


46 

Write a program segment to 

./EE 

07 

G 

47 

evaluate f(n) where n is in 

9 

08 

M 

48 

memory 0. This program finds 

+/— 

09 

1 


49 

I flnl 


10 

N 

50 

n = 0 

gin 

11 

T 

51 

Execution: 

2 

12 



52 

goto/2/9/run/ 

6 

13 



53 


rcl 

14 



54 




2 

15 

goto 

55 



) 

16 

0 

56 

This sum is given to about four 



17 

1 

57 

decimal places unless the series 

sto 

18 


58 

converges very slowly. If the 


2 

19 


59 

series diverges Error is generally 


1 

20 


60 

indicated, but may not be. 

M + 

21 


61 

The sum calculated is actually to 

( 

3 

22 


62 

N terms: N may be recovered 

goto 

23 


63 

from memory 0. 


3 

24 


64 


4 

25 


65 


rcl 

26 


66 



2 

27 


67 


stop 

28 


68 


0 

29 


69 


sto 

30 


70 


2 

31 


71 


sto 

32 


72 


( 

) 

33 


73 




34 


74 




35 


75 




36 


76 




37 


77 




38 


78 




39 


79 





















21. SCIENTIFIC 
FUNCTIONS 


21.1 sinh, cosh, tanh. 

21.2 sinh' 1 , cosh" 1 , tanh' 1 

21.3 sinh, cosh, tanh, sinh' 1 , 
cosh' 1 ,tanh -1 

The relevant program 
segments may be extracted 
from the programs above and 
rearranged, so one need only 
have in a program those 
hyperbolic functions one 
wishes to use. 

To find sech, cosech, coth 
note that 


sech x = 


1 


cosech x = 


coth x = 


cosh x 
1 


sinh x 
1 


tanh x 


also 


sech 1 x = cosh 


’ (x) e,c 





21(ii> 


21.4 Log a x 

21.5 Log a x — Base a to be used 
repeatedly 

21.6 Bessel functions 


HYPERBOLIC 

FUNCTIONS 


21.1 


Execution: 

(a) goto/0/1/x/run/ 
range: |x| < 200 

(b) goto/1/0/x/run/ 
range: |x| < 200 

(c) goto/1/9/x/run/ 
range: unlimited 


KEY 

# 

KEY 

# 

HALT 

00 

e" 

40 

e* 

01 

- 

41 

- 

02 

1 

42 

( 

03 

* 

43 

1/x 

04 

( 

44 

) 

05 

+ 

45 

+ 

06 

2 

46 

2 

07 

) 

47 

= 

08 

= 

48 

stop 

09 

stop 

49 

e x 

10 


50 

+ 

11 


51 

( 

12 


52 

1/x 

13 


53 

) 

14 


54 

* 

15 


55 

2 

16 


56 

= 

17 


57 

stop 

18 


58 

gin 

19 


59 

3 

20 


60 

7 

21 


61 

X 

22 


62 

2 

23 


63 

+/- 

24 


64 

= 

25 


65 

e* 

26 


66 

- 

27 


67 

1 

28 


68 

-5- 

29 


69 

( 

30 


70 

+/- 

31 


71 

- 

32 


72 

2 

33 


73 

) 

34 


74 

= 

35 


75 

stop 

36 


76 

X 

37 


77 

2 

38 


78 

= 

39 


79 














21.2 


KEY 

# 

KEY 

= 

HALT 

00 


40 

+ 

01 


41 

1 

02 


42 

X 2 

03 


43 

+ 

04 


44 

1 

05 


45 

= 

06 


46 


07 


47 

) 

08 


48 

= 

09 


49 

In 

10 


50 

stop 

11 


51 

+ 

12 


52 

( 

13 


53 

X 2 

14 


54 

— 

15 


55 

1 

16 


56 

= 

17 


57 

nA 

18 


58 

) 

19 


59 

= 

20 


60 

In 

21 


61 

stop 

22 


62 

-f 

23 


63 

1 

24 


64 

* 

25 


65 


26 


66 

+/- 

27 


67 

+ 

28 


68 

2 

29 


69 

) 

30 


70 

= 

31 


71 


32 


72 

In 

33 


73 

stop 

34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


INVERSE 

HYPERBOLICS 


Execution: 

(a) goto/0/1/x/run/ 
range: unlimited 

(b) goto/1/2/x/run/ 
range: x > 1 

(c) goto/2/3/x/run/ 
range: — 1 < x < 1 


















HYPERBOLICS 


21.3 

AND 

KEY 

1 

KEY 

- 


HALT 

00 

| = 

40 

INVERSES 

e* 

01 

In 

41 


— 

02 

stop 

42 


( 

03 

+ 

43 


1/x 

04 

1 

44 

Execution 

) 

05 

x 3 

45 


-r 

06 

— 

46 

(a) goto/0/1/x/run/ 

2 

07 

1 

47 

range: ix| < 200 

= 

08 

= 

48 

(b) goto/1/0/x/run/ 

stop 

09 


49 

range: |x| < 200 

e x 

10 

) 

50 

Ic) goto/1/9/x/run/ 

+ 

11 

= 

51 

range: x < 100 

( 

12 

In 

52 


1/x 

13 

stop 

53 

(d) goto/6/6/x/run/ 

\ 

14 

• 

54 

range: x > - 100 

| % 

15 

1 

55 

(e) goto/3/2/x/run/ 

2 

16 

+ 

56 

range: unlimited 


17 

1 

57 


stop 

18 

+/— 

58 

(f) goto/4/3/x/run/ 

X 

19 

+ 

59 

range: x > 1 

2 

20 

2 

60 

(g) goto/5/4/x/run/ 

* 

21 

1 

61 

range: |x| < 1 

e x 

22 

= 

82 


- 

23 

y/x 

63 


1 

24 

In 

64 



25 

stop 

65 


( 

26 

X 

66 


+ 

27 

2 

67 


2 

28 

+/- 

68 


) 

29 

= 

69 


= 

30 

e* 

70 


stop 

31 

— 

71 


+ 

32 

1 

72 


( 

33 

+ 

73 


X 3 

34 

( 

74 


+ 

35 

• 

75 


1 

36 

- 

76 


= 

37 

2 

77 



38 

) 

78 


) 

39 

= 

79 










21.4 


KEY 

« KEY 

HALT 

00 

log 

01 

1/x 

02 

X 

03 

stop 

04 

log 

05 

= 

06 

goto 

07 

0 

08 

0 

09 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


20 


21 


22 


23 


24 


25 


26 


27 


28 


29 


30 


31 


32 


33 


34 


35 


36 


37 


38 


39 


Execution: 

a/run/x/run/ 


sr 

40 

41 

42 

43 

44 

45 

46 

.17 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 


21.5 


TO BE USED 
REPEATEDLY 

Execution: 

(a) To enter base: 
goto/0/9/a/run 

(b) To find logarithm: 
x/run/ 


KEY 

# 

KEY 

# 

HALT 

00 

40 

log 

01 


41 

T 

02 


42 

rcl 

03 


43 

0 

04 


44 

= 

05 


45 

goto 

06 


46 

0 

07 


47 

0 

08 


48 

log 

09 


49 

sto 

10 


50 

0 

11 


51 

goto 

12 


52 

0 

13 


53 


14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 










21.6 


KEY 


KEY 

# 

HALT 

00 

sto 

40 

[ * 

01 

4 

41 

2 

02 

1 

42 

V* 

03 

M + 

43 

( 

04 

4 

44 

X 2 

05 

rcl 

45 

+/- 

06 

1 

46 

sto 

07 

M + 

47 

2 

08 

3 

48 

rcl 

09 

* 

49 

0 

10 

rcl 

50 

) 

11 

4 

51 

= 

12 

-r 1 

52 

sto 

13 

( 

53 

1 

14 

rcl 

54 

0 

15 

4 

55 

sto 

16 

+ 

56 

3 

17 

rcl 

57 

1 

18 

0 

58 

M + 

19 

) 

59 

3 

20 

X 

60 

rcl 

21 

rcl 

61 

1 

22 

2 

62 

4- 

23 

= 

63 

rcl 

24 

sto 

64 

3 

25 

1 

65 

= 

26 

X 2 

66 

sto 

27 

+/- 

67 

1 

28 

+ 

68 


29 

1 

69 

~ i 

30 

./EE 

70 

rcl 

31 

./EE 

71 

0 

32 

9 

72 

= 

33 

+/- 

73 

gin 

34 

= 

74 

1 

35 

gin 

75 

8 

36 

4 

76 

0 

37 

2 

77 

sto 

38 

rcl 

78 

3 

39 

3 

79 


To find J n (x) to 4 significant 
figures, n an integer > 0 

Pre-execution: 

Store n in memory 0. 

Execution: 

x/run/ 

Long execution times can be 
expected for large values of x 
and n. 


22. AREAS AND 
VOLUMES 


22.1 Circle 

22.2 Segment sector and chord of 
circle 

22.3 Sphere 

22.4 Right circular cone 

22.5 Cuboid 

22.6 Cylinder and cylindrical tube 

22.7 Torus 


CIRCLE 


22.1 


Circumference 
C = 2 ?rr 

Area 

A = rrr 2 
Radius = r 

Execution: 

(a) goto/O/1/r/run/ 

(b) goto/1/0/r/run/ 

(c) goto/1 /8/C/run/ 

Id) goto/2/7/C/run/ 

(e) goto/3/8/A/run/ 

(f) goto/4/6/A/run/ 

It is not necessary if you want to 
repeat the use of program (a) to 
start again with 
goto/0/1/, 

to repeat program (b). you need 
not re enter 
go to/1/0/, 

similarly for the other program 
segments. 

The program segments on the 
right can be used on their own - 
it is not necessary to enter the 
entire program — only those 
parts which are required. 


KEY 

# 

KEY 

sr 

HALT 

00 

= 

40 

X 

01 

y/x 

41 

2 

02 

stop 

42 

X 

03 

goto 

43 

j r 

04 

3 

44 

= 

05 

8 

45 

Stop 

06 

X 

46 

goto 

07 

4 

47 

0 

08 

x 

48 

1 

09 

n 

49 

X* 

10 

m 

50 

X 

11 

y/x 

51 

ir 

12 

stop 

52 

= 

13 

goto 

53 

stop 

14 

4 

54 

goto 

15 

6 

55 

1 

16 


56 

0 

17 


57 

+ 

18 


58 

2 

19 


59 

* 

20 


60 

ir 

21 


61 

= 

22 


62 

stop 

23 


63 

goto 

24 


64 

1 

25 


65 

8 

26 


66 

X 2 

27 


67 

+ 

28 


68 

4 

29 


69 

* 

30 


70 

ir 

31 


71 

= 

32 


72 

stop 

33 


73 

goto 

34 


74 

2 

35 


75 

7 

36 


76 


37 


77 

* 

38 


78 

IT 

39 


79 















KEY 

it 

KEY 

*t 

HALT 

00 

rcl 

40 

sto 

01 

0 

41 

0 

02 

* 

42 

stop 

03 

2 

43 

sto 

04 

= I 

44 

1 

05 

stop 

45 

-r 

06 

— 

46 

2 

07 

( 

47 

= 

08 

rcl 

48 

sin 

09 

0 

49 

X 

10 

X 3 

50 

rcl 

11 

X 

51 

0 

12 

rcl 

52 

X 

13 

1 

53 

2 

14 

sin 

54 

= 

15 

■ + 

55 

stop 

16 

2 

56 

rcl 

17 

) 

57 

1 

18 

stop 

58 

* j 

19 

= 

59 

2 

20 

goto 

60 

= 

21 

0 

61 

cos 

22 

0 

62 

+/- 

23 


63 

+ 

24 


64 

1 

25 


65 

X 

26 


66 

rcl 

27 


67 

0 

28 


68 

= 

29 


69 

stop 

30 


70 

rcl 

31 


71 

1 

32 


72 

D ► R 

33 


73 


34 


74 

rcl 

35 


75 

0 

36 


76 

= 

37 


77 

stop 

38 


78 

1 X 1 

39 


79 


SEGMENT 222 
SECTOR 
AND CHORD 
OF A CIRCLE 



Length of chord, 

8 = 2rsin^ 

Height of segment, 
a 

h = r — rcos- 

Length of arc, 

S = ro 

Area of sector. 

A, = A 2 4- A 3 

= 5 r*« 

Area of segment, 
A 2 = \ r 2 sin a 








Execution: 

r/run/a/run/ /run/ 

/run/ /run/ / 
run/ /run/ 

Enter n in degrees. 

N.B. The formulae for V.. h. and 
A ? are valid when a is measured in 
degrees or radians. The formulae 
for S and A, are valid only when 
a is measured in radians. 

The program takes this into 
account. 




SPHERE 


22.3 


Volume, 

V = 5?rr 3 
Surface Area, 

A = 4rrr 2 
r = radius 

Execution: 

(a) goto/0/1/ 
r/run/ /run/ 

(b) goto/2/0/ 

V/run/ /run/ 

(c) goto/4/4/A/ 
run/ /run/ 

It is not necessary to use the goto 
III at the beginning of the 
execution sequence to repeat the 
same sort of calculation. 

The program segments corre¬ 
sponding to (a), (b) and (c) can, 
of course, be removed or used on 
their own. It is not necessary to 
enter the whole program. 


KEY 

HALT 


stop 


X 2 

01 

goto 

41 

sto 

02 

2 

42 

0 

03 

0 

43 

X 

04 

* 

44 

n 

05 

4 

45 

X 

06 

* 

46 

4 

07 

IT 

47 

= 

08 

= 

48 

stop 

09 


49 

X 

10 

stop 

50 

rcl 

11 

y* 

51 

0 

12 

3 

52 

- 

13 

X 

53 

3 

14 

IT 

54 

= 

15 

X 

55 

stop 

16 

4 

56 

goto 

17 

* 

57 

0 

18 

3 

58 

1 

19 

= 

59 

X 

20 

stop 

60 

3 

21 

goto 

61 

T 

22 

4 

62 

4 

23 

4 

63 

* 

24 


64 

JT 

25 


65 

y* 

26 


66 

( 

27 


67 

1 

28 


68 

T 

29 


69 

3 

30 


70 

) 

31 


71 

= 

32 


72 

stop 

33 


73 

X 2 

34 


74 

X 

35 


75 

* 

36 


76 

X 

37 


77 

4 

38 


78 

.» J 

39 


79 





















22.4 


KEY 

# 

KEY 

# 

HALT 

00 

= 

40 

sto 

01 

goto 

41 

0 

02 

0 

42 

X 2 

03 

0 

43 

+ 

04 


44 

stop 

05 


45 

sto 

06 


46 

1 

07 


47 

X 3 

08 


48 

= 

09 


49 

v/7 

10 


50 

stop 

11 


51 

X 

12 


52 

JT 

13 


53 

X 

14 


54 

rcl 

15 


55 

0 

16 


56 

= 

17 


57 

stop 

18 


58 

4 

19 


59 

( 

20 


60 

rcl 

21 


61 

0 

22 


62 

X 2 

23 


63 

X 

24 


64 

ir 

25 


65 

) 

26 


66 

stop 

27 


67 

= 

28 


68 

stop 

29 


69 

rcl 

30 


70 

0 

31 


71 

X 2 

32 


72 

X 

33 


73 

rcl 

34 


74 

1 

35 


75 

X 

36 


76 

n 

37 


77 

+ 

38 


78 

3 

39 


79 


RIGHT 

CIRCULAR 

CONE 



Slant height 
s = y/r 7 + h 2 
Curved surface area 
S = nry/r* + h 2 

Base area 
B = ITT 3 

Total surface area 
A = S + B 
Volume 



Execution: 

r/run/h/run/ /run/ 
/run/ /run/ / 
run/ 


























CUBOID 


22.5 




7 


\ 

\ 

\ 

\ 

_V 


a- 



Diagonal 

d = Va 2 + b* + c* 

Surface area 
A = 2(ab + ac + be) 

Volume 
V = a be 

Execution: 

a/run/b/run/c/run/ 
/run/ /run/ 


KEY 

# 

KEY 

s 

HALT 

00 

rcl 

40 

sto 

01 

1 

41 

0 

02 

x 

42 

X 2 

03 

rcl 

43 

+ 

04 

2 

44 

Stop 

05 

1 = 

45 

sto 

06 

goto 

46 

1 

07 

0 

47 

X 2 

08 

0 

48 

+ 

09 


49 

stop 

10 


50 

sto 

11 


51 

2 

12 


52 

X 2 

13 * 


53 

= 

14 


54 

v'x 

15 


55 

stop 

16 


56 

rcl 

17 


57 

1 

18 


58 

+ 

19 


59 

rcl 

20 


60 

2 

21 


61 

X 

22 


62 

rcl 

23 


63 

0 

24 


64 

+- 

25 


65 

1 

26 


66 

rcl 

27 


67 

1 

28 


68 

X 

29 


69 

rcl 

30 


70 

2 

31 


71 

) 

32 


72 

X 

33 


73 

2 

34 


74 

= 

35 


75 

stop 

36 


76 

rcl 

37 


77 

0 

38 


78 

X 

39 


79 
























22.6 


KEY 

'Tl 

KEY 

# 

HALT 

00 


40 

sto 

01 

rcl 

41 

0 

02 

2 

42 

stop 

03 

= 

43 

sto 

04 

stop 

44 

1 

05 

X 

45 

stop 

06 

2 

46 

sto 

07 

+ 

47 

2 

08 

( 

48 

rcl 

09 

rcl 

49 

0 

10 

0 

50 

X 2 

11 

+ 

51 

X 

12 

rcl 

52 

rcl 

13 

1 

53 

2 

14 

X 

54 

X 

15 

rcl 

55 

7T 

16 

2 

56 

= 

17 

i x 

57 

stop 

18 

IT 

58 

* 

19 

X 

59 

rcl 

20 

2 

60 

0 

21 

) 

61 

X 

22 

stop 

62 

2 

23 

= 

63 

= 

24 

goto 

64 

stop 

25 

0 

65 

rcl 

26 

0 

66 

0 

27 


67 

X 2 

28 


68 

— 

29 


69 

rcl 

30 


70 

1 

31 


71 

X 2 

32 


72 

X 

33 


73 

rcl 

34 


74 

2 

35 


75 

X 

36 


76 

7T 

37 


77 

= 

38 


78 

stop 

39 


79 


CYLINDRICAL 

TUBE 



Volume of outer cylinder 
V, = *R 2 h 

Curved surface area of outer 

cylinder 

A, = 2rrRh 

Volume of Tube 
V 2 = irh(R 2 — r 2 ) 

Area of one anular end of tube 
A 2 = tr(R 2 — r 2 ) 

Total curved surface area 
A 3 = 2trh|R + r) 

Total surface area 

A* = 2A 2 ■+■ A3 

Execution: 

R/run/r/ 

run/h/run/ /run/ 

/run/ /run/ / 
run/ /run/ 


























TORUS 


22.7 



Area 

A = 4tt 2 Rr 

Volume 
V = 2tr 2 Rr 2 

Execution: 

r/run/R/run/ /run/ 


KEY 

W 

KEY 

* 

HALT 

00 


40 

X 

01 


41 

( 

02 


42 

X 

03 


43 

stop 

04 


44 

X 

05 


45 

7T 

06 


46 

X 2 

07 


47 

X 

08 


48 

4 

09 


49 

) 

10 


50 

stop 

11 


51 

* 

12 


52 

2 

13 


53 

= 

14 


54 

goto 

15 


55 

0 

16 


56 

0 

17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 
















23. NUMBER THEORY 

23.1 Factorials 

23.2 Factorials by Stirling's 
approximation 

23.3 Binomial coefficients 

23.4 HCF and LCM 

23.5 Prime number tester 

23.6 Prime factorisation 

23.7 Number base conversion — 
Base m to decimal 

23.8 Number base conversion — 
Decimal to base m 

23.9 Number base conversion 
where same base is used 
repeatedly 

23.10 Fast number base conversion 
for octal 

23.11 Fast number base conversion 
for hexadecimal 

23.12 Modular arithmetic 

23.13 Fast modular arithmetic for 
certain moduli 

23.14 Diagonal coding function 

23.15 Powers of two coding function 





FACTORIALS 


23.1 


Execution: 

n/run/ 

1 . 

Error will be displayed if 
nl > 10 ,o °. 

In such cases use Stirling's 
formula. 


KEY 

# 

KEY 

. * 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

sto 

03 


43 

1 

04 


44 

rcl 

05 


45 

0 

06 


46 

— 

07 


47 

2 

08 


48 


09 


49 

gin 

10 


50 

2 

11 


51 

7 

12 


52 

+ 

13 


53 

1 

14 


54 


15 


55 

sto 

16 


56 

0 

17 


57 

X 

18 


58 

rcl 

19 


59 

1 

20 


60 

= 

21 


61 

sto 

22 


62 

1 

23 


63 

goto 

24 


64 

0 

25 


65 

5 

26 


66 

rcl 

27 


67 

1 

28 


68 

goto 

29 


69 

0 

30 


70 

0 

31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 























KEY 

HALT 

sto 

0 

4 - 

./EE 

5 

x 

rcl 

0 

In 

rcl 

0 

./EE 

9 

1 

8 

9 

3 

8 

5 

3 

goto 

0 

0 


23.2 


# 

KEY # 


00 

40 


01 

41 


02 

42 


03 

43 

For large n, 

04 

44 

n! — \/27me' n n n 

05 

45 

06 

46 

The program finds 

07 

47 

In (nl). 

08 

48 


09 

49 

Execution: 

10 

50 

11 

51 

n/run/ 

12 

52 


13 

53 


14 

54 


15 

55 


16 

56 


17 

57 


18 

58 


19 

59 


20 

60 


21 

61 


22 

62 


23 

63 


24 

64 


25 

65 


26 

66 


27 

67 


28 

68 


29 

69 


30 

70 


31 

71 


32 

72 


33 

73 


34 

74 


35 

75 


36 

76 


37 

77 


38 

78 


39 

79 



BINOMIAL 

CO¬ 

EFFICIENTS 


rl= — 55 — 

' x ! rt (n - r)l 
n > r > 0 

Execution: 

n/run/r/run/ 

Long execution times are possible 
with large values of r. 


23.3 


KEY 

# 

KEY 

* 

HALT 

00 

goto 

40 

sto 

01 

0 

41 

o 

02 

9 

42 

stop 

03 

rcl 

43 

sto 

04 

2 

44 

1 

05 

goto 

45 

1 

06 

0 

46 

sto 

07 

0 

47 

2 

08 


48 

X 

09 


49 

rcl 

1° 


50 

0 

11 


51 

1 + 

12 


52 

rcl 

13 


53 

1 

14 


54 

= 

15 


55 

sto 

16 


56 

2 

17 


57 

rcl 

18 


58 

1 

19 


59 

— 

20 


60 

2 

21 


61 

= 

22 


62 

gin 

23 


63 

4 

24 


64 

3 

25 


65 

+ 

26 


66 

1 

27 


67 

_ 

28 


68 

sto 

29 


69 

1 

30 


70 

rcl 

31 


71 

0 

32 


72 

- 

33 


73 

1 

34 


74 

= 

35 


75 

sto 

36 


76 

0 

37 


77 

rcl 

38 


78 

2 

39 


79 






























23.4 


KEY 

# 

KEY 

HALT 

00 

sto 

sto 

01 

0 

0 

02 

goto 

X 

03 

1 

stop 

04 

0 

sto 

05 


1 

06 


= 

07 


sto 

08 


2 

09 


rcl 

10 


0 

11 


- 

12 


rcl 

13 


1 

14 


= 

15 


gin 

16 


3 

17 


3 

18 


+/- 

19 


gin 

20 


3 

21 


9 

22 


rcl 

23 


2 

24 


+ 

25 


rcl 

26 


0 

27 


stop 

28 


= 1 

29 


goto 

30 


0 

31 


0 

32 


+/- 

33 


sto 

34 


1 

35 


goto 

36 


1 

37 


0 

38 


+/- 

39 



Execution: 

a/run/b/run/ 

/run/ 

a, b > 0 


# 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 


PRIME 

NUMBER 

TESTER 


This program finds the least 
prime number which divides the 
given number n. If the least prime 
divisor is n itself then n is prime. 

(Exception: if n = 1, the program 
will return 1. which is not prime.) 

Execution: 

n/run/ 

Example: 

171/run/3 

179/run/ 

So 171 is not prime - it is 
divisible by 3. 

179, however, is prime - there is 
no smaller number which divides 
it, apart from 1. 

Warning: 

With large numbers long execution 
times are possible. 


23.5 


KEY 

# 

KEY 

# 

HALT 

00 

+ 

40 

sto 

01 

2 

41 

0 

02 

= 

42 

V* 

03 

goto 

43 

sto 

04 

0 

44 

2 

05 

0 

45 

1 

06 

2 

46 

sto 

07 

M + 

47 

1 

08 

1 

48 

2 

09 

rcl 

49 

-r 

10 

2 

50 

rcl 

11 

- 

51 

0 

12 

rcl 

52 


13 

1 

53 

- 

14 

= 

54 

( 

15 

gin 

55 

+ 

16 

6 

56 

1 

17 

2 

57 

./EE 

18 

x^y 

58 

./EE 

19 

goto 

59 

9 

20 

1 

60 

- 

21 

0 

61 

1 

22 

rcl 

62 

./EE 

23 

0 

63 

: — 

m 

m 

24 

goto 

64 

9 

25 

0 

65 

) 

26 

0 

66 

= 

27 

2 

67 

+/— 

28 

goto 

68 

gin 

29 

0 

69 

4 

30 

0 

70 

6 

31 


71 

rcl 

32 


72 

1 

33 


73 

— 

34 


74 

2 

35 


75 

= 

36 


76 

gin 

37 


77 

6 

38 


78 

7 

39 


79 














23.6 


KEY 

# 

KEY 

# 

HALT 

00 

= 

40 

sto 

01 

gin 

41 

0 

02 

7 

42 

-r 

03 

6 

43 

2 

04 

rcl 

44 

+ 

05 

3 

45 

1 

06 

stop 

46 

./EE 

07 

rcl 

47 

./EE 

08 

1 

48 

9 

09 

goto 

49 


10 

0 

50 

1 

11 

1 

51 

./EE 

12 

1 

52 

./EE 

13 

+/- 

53 

9 

14 

M + 

54 

= 

15 

1 

55 

sto 

16 

rcl 

56 

1 

17 

3 

57 

sto 

18 

+/- 

58 

2 

19 

M + 

59 

1 

20 

2 

60 

sto 

21 

goto 

61 

3 

22 

2 

62 

rcl 

23 

3 

63 

0 

24 

1 

64 

- 

25 

M + 

65 

rcl 

26 

3 

66 

2 

27 

rcl 

67 

= 

28 

1 

68 

gin 

29 

M + 

69 

5 

30 

2 

70 

2 

31 

goto 

71 

+/- 

32 

2 

72 

gin 

33 

3 

73 

6 

34 

0 

74 

4 

35 

0 

75 

rcl 

36 

rcl 

76 

1 

37 

3 

77 

- 

38 

stop 

78 

2 

39 

1 

79 


PRIME 

FACTOR¬ 

ISATION 


This program finds the prime 
factors of a number n. After all 
the prime factors have been 
found. 1 is displayed, n > 1. 

Execution: 

n/run/ 

/run/ 

/run/... 

/run/ 

/run/ 

Example: 

12/run/ /run/ / 
run/ /run/ / 

So 12 = 2x2x3 

Warning: 

Long execution times can be 
expected for certain large 
numbers. 


CONVERSION 


FROM 

KEY 

* 

KEY 


HALT 

00 

40 

BASE m TO 

sto 

01 

41 

DECIMAL 

0 

stop 

02 

03 

42 

43 


X 

04 

44 


rcl 

05 


45 

Converts integer whose base m 
digits are 

0 

+ 

06 

07 

08 


46 

47 

goto 


48 

d n d n -i d 3 d, to decimal 

0 

09 


49 

equivalent, x. 

3 

10 


50 


= 

11 


51 

Execution: 

goto 

12 


52 

0 

13 


53 

m/run/d n /run/ 

0 

14 


54 

d„. ,/run/... 


15 


55 

dj/run/di/goto/ 


16 


56 

1/1/run/ 


17 


57 



18 


58 

Example: 


19 


59 


20 


60 

To convert the base 9 number 518 


21 


61 

to decimal: 


22 


62 

9/run/5/1/ 


23 


63 

run/8/goto/1/1/ 


24 


64 

run/ 


25 


65 

So the decimal representation is 


26 


66 

422 


27 


67 



28 


68 



29 


69 



30 


70 



31 


71 



32 


72 



33 


73 



34 


74 



35 


75 



36 


76 



37 


77 



38 


78 



39 


79 














23.8 


KEY 

# 

KEY 

# 

CONVERSION 

HALT 

sto 

00 

01 

1 

+/- 

40 

41 

FROM 

0 

02 

M + 

42 

DECIMAL 

sto 

1 

03 

04 

2 

rcl 

43 

44 

TO BASE m 

stop 

05 

2 

45 


sto 

06 

gin 

46 


2 

07 

5 

47 

Converts decimal integer x to base 


08 

5 

48 

m representation 

rcl 

09 

1 

49 

d n d n _,. d 2 d,. 

1 

10 

M+ — 

50 


= 

11 

3 

51 

Execution: 

gin 

12 

goto 

52 

2 

13 

3 

53 

m/run/x/run/ /run/ 

8 

14 

9 

54 

/run ... / /run/ 

rcl 

15 

rcl 

55 


1 

16 

3 

56 

The display of 8's indicates the 

X 

17 

stop 

57 

conversion is complete. 

rcl 

18 

rcl 

58 


0 

19 

1 

59 

F xamnlp 

= 

20 

M + 

60 

L- A CJ 1 1 1 ^-/l Ks . 

sto 

21 

2 

61 

To convert 422 to base 9: 

1 

22 

— 

62 

9/run/422/run/ 

rcl 

23 

2 

63 

/run/ /run/ /run/ 

2 

24 

= _ 

64 


goto 

25 

gin 

65 

So the base 9 representation is 

0 

26 

7 

66 

518. 

8 

27 

1 

67 


rcl 

28 

goto 

68 


1 

29 

2 

69 


* 

30 

8 

70 


rcl 

31 

8 

71 


0 

32 

8 

72 


= 

33 

8 

73 


sto 

34 

JEL J 

74 


1 

35 

8 

75 


0 

36 

8 

76 


sto 

37 

8 

77 


3 

38 

8 

78 


rcl 

39 

0 

79 












23.9 



KEY 

# 

KEY 

# 


HALT 

00 

0 

40 


X 

01 

sto 

41 


rcl 

02 

3 

42 


0 

03 

rcl 

43 


+ 

04 

2 

44 


goto 

05 

— 

45 


0 

06 

rcl 

46 


0 

07 

1 

47 


8 

08 

• = 

48 


8 

09 

gin 

49 

Store base m in memory 0 





8 

10 

6 

50 

Converts decimal integer x to base 

8 

11 

0 

51 

m representation 

8 

12 

sto 

52 

d„d n ,.. . d 2 d, and vice versa. 

8 

13 

2 

53 

Decimal to base m: 

8 

14 

1 

54 

stop 

15 

M + 

55 

Pre-execution: 

sto 

16 

3 

56 

goto/1 /6/ 

2 

17 

goto 

57 

Execution: 

1 

sto 

18 

19 

4 

3 

58 

59 

x/run/dn/ 

1 

20 

rcl 

60 

run/d„ . ,/run /... 16)1 

rcl 

21 

3 

61 

run/ 

1 

22 

stop 

62 

It is not necessary to repeat the 

X 

23 

rcl 

63 

pre-execution. 

rcl 

24 

1 

64 

Base m to decimal: 

0 

25 

4. 

65 




— 

26 

rcl 

66 

Pre-execution: 

rcl 

27 

0 

67 

goto/0/1 

2 

28 

= 

68 

Execution: 


29 

sto 

69 


= 

30 

1 

70 

dn/run/d,, .,/ 

gin 

31 

1 - 

71 

run/d 2 /run/d,/=/ 

4 

32 

1 

72 

Note the = sign after d,. 

0 

33 

= 1 

73 


x^^y 

34 

gin 

74 


sto 

35 

0 

75 


1 

36 

8 

76 


goto 

37 

goto 

77 


2 

38 

4 

78 


1 

39 

0 

79 


o 


23.10 


KEY 

nr 

KEY 

# 

HALT 

00 

r 

40 

sto 

01 

- 

41 

1 

02 

i 

42 

0 

03 

= 

43 

sto 

04 

gin 

44 

2 

05 

7 

45 

1 

06 

8 

46 

sto 

07 

rcl 

47 

5 

08 

5 

48 

rcl 

09 

1 x 

49 

1 

10 

rcl 

50 

| 4. 

11 

3 

51 

rcl 

12 

= 

52 

0 

13 

goto 

53 

— 

14 

0 

54 

( 

15 

7 

55 

+ 

16 

sto 

56 

1 

17 

1 

57 

m 

m 

18 

1 

58 

7 EE 

19 

0 

59 

9 

20 

sto 

60 

— 

21 

0 

61 

1 

22 

8 

62 

./EE 

23 

sto 

63 

7EE 

24 

3 

64 

9 

25 

goto 

65 

= 

26 

0 

66 

sto 

27 

3 

67 

1 

28 

sto 

68 

) 

29 

1 

69 

X 

30 

8 

70 

rcl 

31 

sto 

71 

0 

32 

0 

72 

X 

33 

1 

73 

rcl 

34 

0 

74 

5 

35 

goto 

75 

= 

36 

6 

76 

M + 

37 

3 

77 

2 

38 

rcl 

78 

rcl 

39 

2 

79 


Converts octal integer x into 
decimal integer y and vice versa. 

Although faster than the previous 
number base programs, may still 
take fairly long for large numbers. 

Octal to Decimal: 

Pre-execution: 

goto/5/6 

Execution: 

x/run/ 

Decimal to Octal: 

Pre-execution: 

goto/6/8 

Execution: 

y/run/ 

It is not necessary to repeat the 
pre-execution sequences to 
continue with conversions of the 
same type. 


HEXADECIMAL 
DECIMAL 
CONVERSION 


This program is fairly fast. 

To convert decimal integer x to 
hex integer d n d„ d 7 d,. 

Execution: 

(a) hex to decimal: 
goto/0/1/d„/run/ 

d„ .,/run/ ... /d 2 /run/ 

d ,/=/x 

(b) decimal to hex: 
goto/0/8 

/x/run/ /run/ / 
run/ /rurt/ /... 

(eventually d„ - 0 for all large 
enough n). 

Notice the digits appear in the 
reverse order in (b). 


/ 


23.11 


KEY 

# 

KEY 

# 

HALT 

00 


40 

X 

01 


41 

1 

02 


42 

6 

03 


43 

4. 

04 


44 

goto 

05 


45 

0 

06 


46 

0 

07 


47 

sto 

08 


48 

0 

09 


49 

rcl 

10 


50 

0 

11 


51 

* 

12 


52 

1 

13 


53 

6 

14 


54 

- 

15 


55 

( 

16 


56 

+ 

17 


57 

1 

18 


58 

./EE 

19 


59 

./EE 

20 


60 

9 

21 


61 

— 

22 


62 

1 

23 


63 

./EE 

24 


64 

./EE 

25 


65 

9 

26 


66 

= 

27 


67 

sto 

28 


68 

0 

29 


69 

) 

30 


70 

X 

31 


71 

1 

32 


72 

6 

33 


73 

= 

34 


74 

stop 

35 


75 

goto 

36 


76 

1 

37 


77 

0 

38 


78 


39 


79 














KEY 

# KEY 

# 

HALT 

00 

40 

4- 

01 

41 

rcl 

02 

42 

0 

03 

43 

1 = 

04 

44 

gin 

05 

45 

0 

06 

46 

4 

07 

47 

47- 

08 

48 

; 4- | 

09 

49 

rcl 

10 

50 

0 

11 

51 

= 

12 

52 

gin 

13 

53 

1 

14 

54 

2 

15 

55 

47- 

16 

56 

gin 

17 

57 

2 

18 

58 

3 

19 

59 

goto 

20 

60 

0 

21 

61 

0 

22 

62 

4- 

23 

63 

rcl 

24 

64 

0 

25 

65 

= 

26 

66 

goto 

27 

67 

0 

28 

68 

0 

29 

69 


30 

70 


31 

71 


32 

72 


33 

73 


34 

74 


35 

75 


36 

76 


37 

77 


38 

78 


39 

79 


MODULAR 23,2 
ARITHMETIC 


This program finds the remainder 
when one number is divided by 
another, the modulus. 

a mod b = the remainder when a 
is divided by b. 

The program completes arithmetic 
operations, so/run/ may be used in 
the same way as /=/, in order to 
give addition and subtraction and 
multiplication mod b. 

(+b» ~b» *b. respectively) 

Pre-execution: 

Store b in memory 0. 

Execution: 

(i) a/run/ 

(li) x + y/run/ 

(iii) x x y/run/ 

(iv> x — y/run/ 

Warning: long execution times can 
be expected with large numbers. 


MODULAR 

ARITHMETIC 


This program functions in the 
same way as the previous one. It 
may, however, return answers 
such as 4 0000001 or 7 9999999 
when the modulus has prime 
factors other than 2 and 5. It is 
faster than the previous program. 

Store modulus, b, in memory 0. 

Execution: 

a/run/ 
a, x a 2 /run/ 
a, + a 2 /run/ 
etc. 


23.13 


KEY 

# 

KEY 

it 

HALT 

00 


40 

* 

01 


41 

rcl 

02 


42 

0 

03 


43 

- 

04 


44 

1 

05 


45 

+ 

06 


46 

1 

07 


47 

m 

m 

08 


48 

./EE 

09 


49 

9 

10 


50 

- 

11 


51 

1 

12 


52 

./EE 

13 


53 

./EE 

14 


54 

9 

15 


55 

) 

16 


56 

X 

17 


57 

rcl 

18 


58 

0 

19 


59 

= 

20 


60 

goto 

21 


61 

0 

22 


62 

0 

23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 















KEY 

* key 

# 

HALT 

00 x<0-y 

40 

+ 

01 sto 

41 

( 

02 1 

42 

+ 

03 1 

43 

stop 

04 M + 

44 

X 

05 0 

45 

( 

06 goto 

46 

+ 

07 2 

47 

1 

08 4 

48 

) 

09 rcl 

49 

+ 

10 2 

50 

2 

11 

51 

) 

12 rcl 

52 

= 

13 1 

53 

goto 

141 = 

54 

0 

15 stop 

55 

0 

16 +/- 

56 

sto 

17 + 

57 

2 

18 rcl 

58 

0 

19 0 

59 

sto 

20 

60 

0 

21 stop 

61 

sto 

22 goto 

62 

1 

23 1 

63 

rcl 

24 7 

64 

2 

25 

65 

- 

26 

66 

( 

27 

67 

rcl 

28 

68 

0 

29 

30 

69 

pT -1 

70 

rcl 

31 

71 

1 

32 

72 

+ 

33 

73 

1 

34 

74 

) 

35 

75 

= 

36 

76 

gin 

37 

77 

4 

38 

78 

9 

39 

79 


DIAGONAL 23,4 

CODING 

FUNCTION 


Codes pairs of integers as a single 
integer. 

c = 5 (x + y + 1)(x + y) + x 

Execution: 

(a) goto/0/1/x/run/ 
y/run/ 

(b) goto/1/7/c/run/ 

/run/ 

It is not necessary to repeat the 
goto/0/1 or goto/1/7 in order to 
use (a) or (b) again. 




23.15 


POWERS OF 
2 CODING 
FUNCTION 

Codes pair (x, y) of integers as 
c = 2*(2y + 1) 

Execution: 

(a) goto/0/1/x/run/y/run/ 

(b) goto/1 /16/c/run/ /run/ 

It is not necessary to repeat the 
goto/0/1 or the goto/1 /6 in order 
to use (a) or (b) again. 

Warning: 

0 is a code of no pair under 
this function. 


KEY 

# 

KEY 

# 

HALT 

00 

1 

40 

V* 

01 

./EE 

41 

2 

02 

./EE 

42 

x«^y 

03 

9 

43 

x 

04 

) 

44 

< 

05 

= 

45 

stop 

06 

+/— 

46 

X 

07 

gin 

47 

2 

08 

5 

48 

+ 

09 

3 

49 

1 

10 

goto 

50 

) 

11 

2 

51 

= 

12 

2 

52 

goto 

13 

rcl 

53 

0 

14 

0 

54 

0 

15 

stop 

55 

sto 

16 

rcl 

56 

2 

17 

2 

57 

1 

18 

— 

58 

+/- 

19 

./EE 

59 

sto 

20 

5 

60 

0 

21 

= 

61 

1 

22 

stop 

62 

M + 

23 

goto 

63 

0 

24 

1 

64 

rcl 

25 

6 

65 

2 

26 


66 

+ 

27 


67 

2 

28 


68 

= 

29 


69 

sto 

30 


70 

2 

31 


71 

- 

32 


72 

( 

33 


73 

+ 

34 


74 

1 

35 


75 

./EE 

36 


76 

./EE 

37 


77 

9 

38 


78 

- 

39 


79 
















24. POLYNOMIALS 


24.1 Evaluation of polynomials 

24.2 Evaluation of polynomial 
with fixed coefficients 

24.3 Evaluation of long 
polynomial with fixed 
coefficients 

24.4 Division of polynomial by 
linear factor 

24.5 Division of polynomial by 
quadratic 

To solve polynomials use one of the 

programs from the section on 

equation solving. 


24.1 


EVALUATION 
OF A 

POLYNOMIAL 


p(x) = a„x" + a n .ix"* 1 
+ ... + a i x + ao 

Pre-execution: 

3 Oto/ 0 /l 

Execution: 

</run/a„/run/a n _ t / 
un/a„- 2 /... /a 2 /run/ 
1,/run/ao/ = / 


KEY 

- 

KEY 

* 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

stop 

03 


43 

X 

04 


44 

rcl 

05 


45 

0 

06 


46 

-f 

07 


47 

goto 

08 


48 

0 

09 


49 

3 

10 


50 


11 


51 


12 


52 


13 


53 


14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 

























24.2 


KEY 

# 

KEY 

# 

HALT 

00 

rcl 

40 

sto 

01 

6 

41 

0 

02 

+ 

42 

stop 

03 

rcl 

43 

sto 

04 

1 

44 

1 

05 

X 

45 

stop 

06 

rcl 

46 

sto 

07 

6 

47 

2 

08 

•f 

48 

stop 

09 

rcl 

49 

sto 

10 

0 

50 

3 

11 

= 

51 

stop 

12 

goto 

52 

sto 

13 

1 

53 

4 

14 

8 

54 

stop 

15 


55 

sto 

16 


56 

5 

17 


57 

stop 

18 


58 

sto 

19 


59 

6 

20 


60 

X 

21 


61 

rcl 

22 


62 

5 

23 


63 

+ 

24 


64 

rcl 

25 


65 

4 

26 


66 

X 

27 


67 

rcl 

28 


68 

6 

29 


69 

+ 

30 


70 

rcl 

31 


71 

3 

32 


72 

X 

33 


73 

rcl 

34 


74 

6 

35 


75 

+ 

36 


76 

rcl 

37 


77 

2 

38 


78 

X 

39 


79 


p(x) = a 0 + a,x + a 2 x 2 

+ a 3 x 3 + a 4 x 4 + a 5 x 5 

Execution: 

(a) ao/run/a^run/ 
a 2 /run/a 3 /run/ 
a 4 /run/a 5 /run/ 

(b) x/run/ / 
x'/run/ 
etc. 

To enter new a,: 

goto/0/1/ and repeat from (a). 

To evaluate for new x just repeat 

from (b). 


EVALUATION 
OF LONG 
FIXED 

POLYNOMIAL 


p(x) = V ajX* 

• “O 

Store the last six coefficients in 
memories 0-5. 

Enter the remainder of the 
coefficients as program steps. Use 
the method of program (21 — i.e. 
write the polynomial as 

((.. .((a n x + a^.^x + a„. 2 ) x 
+ a n . 3 )x + ... + a,)x + Bq. 

Example: 
to evaluate 

840x 8 + 516x ; + 4.7x 6 + 15.4x 5 
+ 11.81x 4 +9.2x 3 + 19x 2 
+ 87x + 1 

Store 840, 516.4.7, 15.4, 11.81 
and 9.2 in memories 0 to 5 
respectively and use the program 
opposite. 

Execution: 

x/run/ 


24.3 


KEY 

# 

KEY 

# 

HALT 

00 

rcl 

40 

sto 

01 

6 

41 

6 

02 

+ 

42 

X 

03 

8 

43 

rcl 

04 

7 

44 

0 

05 

X 

45 

' + 

06 

rcl 

46 

rcl 

07 

6 

47 

1 

08 

-f 

48 

X 

09 

i 

49 

rcl 

10 

r~= 

50 

6 

11 

goto 

51 

+ 

12 

0 

52 

rcl 

13 

0 

53 

2 

14 


54 

1 * 

15 


55 

rcl 

16 


56 

6 

17 


57 

•f 

18 


58 

rcl 

19 


59 

3 

20 


60 

X 

21 


61 

rcl 

22 


62 

6 

23 


63 

+ 

24 


64 

rcl 

25 


65 

4 

26 


66 

x 

27 


67 

rcl 

28 


68 

6 

29 


69 

+ 

30 


70 

rcl 

31 


71 

5 

32 


72 

X 

33 


73 

rcl 

34 


74 

6 

35 


75 

+ 

36 


76 

1 

37 


77 

9 

38 


78 

> 

39 


79 



24.4 


KEY 

* key 

# 

HALT 

00 

40 

sto 

01 

41 

0 

02 

42 

0 

03 

43 

sto 

04 

44 

1 

05 

45 

stop 

06 

46 


07 

47 

rcl 

08 

48 

1 

09 

49 

* 

10 

50 

rcl 

11 

51 

0 

12 

52 

= 

13 

53 

sto 

14 

54 

1 

15 

55 

* 

16 

56 

rcl 

17 

57 

0 

18 

58 

= 

19 

59 

goto 

20 

60 

0 

21 

61 

6 

22 

62 

+ 

23 

63 

rcl 

24 

64 

1 

25 

65 

= 

26 

66 

goto 

27 

67 

0 

28 

68 

0 

29 

69 


30 

70 


31 

71 


32 

72 


33 

73 


34 

74 


35 

75 


36 

76 


37 

77 


38 

78 


39 

79 


p(x) = 

a n x" ■+■ a n -,x" -1 + ... 
= (b n -, x n * , +...+ b 0 }(x 

This program gives the 
coefficients b, of 

x —t 

remainder r 
(which equals p(t)). 

Execution: 

t/run/ 
a n /run/ 
a n -,/run/ 
a n . 2 /run/ 

a 2 /run/ 
a,/run/ 

goto/2/3/a 0 /run/ 


+ a 0 
-t) + r. 

and the 


24.5 


DIVISION OF A 
POLYNOMIAL 
BY A 

QUADRATIC 


p(x) = a„x n + a n ., x" -1 
+ ... + a, x + a 0 
q(x) = x 2 + c, x + c 0 

^ = t(x| + r(x| 
q(x) 

tlx) = b„. 2 x n ' 2 + b n _ 3 x n ' 3 
+ ... + bi x + b 0 
r(x) = r,x 4- r 0 

Execution: 

c,/run/c 0 / 
run/a„/run/ 
a n _i/run/ 
a n . 2 /run/ 

.... a 2 /run/ 
a,/run/ 
goto/4/0/a 0 / 
run/ 


KEY 

# 

KEY 

# 

HALT 

00 

- 

40 

sto 

01 

( 

41 

3 

02 

rcl 

42 

stop 

03 

2 

43 

sto 

04 

x 

44 

4 

05 

rcl 

45 

0 

06 

4 

46 

sto 

07 

) 

47 

1 

08 

= 

48 

sto 

09 

goto 

49 

2 

10 

0 

50 

stop 

11 

0 

51 

- 

12 


52 

( 

13 


53 

rcl 

14 


54 

1 

15 


55 

x 

16 


56 

rcl 

17 


57 

3 

18 


58 

) 

19 


59 

- 

20 


60 

( 

21 


61 

rcl 

22 


62 

2 

23 


63 

X 

24 


64 

rcl 

25 


65 

4 

26 


66 

) 

27 


67 

= 

28 


68 


29 


69 

rcl 

30 


70 

1 

31 


71 

sto 

32 


72 

2 

33 


73 

> 

▲ 

▼ 

X 

34 


74 

sto 

35 


75 

1 

36 


76 

goto 

37 


77 

1 

38 


78 

1 

39 


79 















25. CO-ORDINATE 
GEOMETRY 

25.1 Cartesian/polar co-ordinate 
conversion 

25.2 Cartesian to spherical polar 
co-ordinates 

25.3 Spherical polar to cartesian 

25.4 Translation and rotation of 
co-ordinates 

25.5 Intercept and slope of a line 
given two points on it 

25.6 Area of a triangle 

25.7 Radius of curvature 

25.8 Intercepts of line 

25.9 Equation of line from 
intercepts 

25.10 Distance between two points 
in 3-space 

25.11 Distance from a point to a 
line 


POLAR/ 

CARTESIAN 

CO-ORDINATE 

CONVERSION 



Cartesian to polar: 

Pre-execution: 

goto/0/1 

Execution: 

x/run/y/run/ /run/ 

It is not necessary to repeat the 
pre-execution sequences for 
subsequent executions of the same 
sort of conversion. 

Polar to cartesian: 

Pre-execution: 

goto/5/1 

Execution: 

r/run/0/run/ /run/ 


25.1 


KEY 

# 

KEY # 

HALT 

00 

goto 

40 

sto 

01 

0 

41 

0 

CM 

o 

0 

42 

stop 

03 


43 

sto 

04 


44 

1 

05 


45 

x 2 

06 


46 

+ 

07 


47 

rcl 

08 


48 

0 

09 


49 

X 2 

10 

stop 

50 

= 

11 

* 

51 

v'* 

12 

stop 

52 

stop 

13 

sto 

53 

1/x 

14 

0 

54 

X 

15 

cos 

55 

rcl 

16 

x ◄►y 

56 

0 

17 

1 = j 

57 

= 

18 

stop 

58 

arc 

19 

rcl 

59 

cos 

20 

0 

60 

sto 

21 

sin 

61 

0 

22 

= 

62 

rcl 

23 

goto 

63 

1 

24 

5 

64 

gin 

25 

0 

65 

3 

26 


66 

3 

27 


67 

rcl 

28 


68 

0 

29 


69 

goto 

30 


70 

0 

31 


71 

0 

32 


72 

3 

33 


73 

6 

34 


74 

0 

35 


75 

— 

36 


76 

rcl 

37 


77 

0 

38 


78 

= 

39 


79 









CARTESIAN 252 

KEY 
HALT 
sto 
0 
x 2 

stop 
sto 
1 

X 2 

sto 
2 

+ 

stop 
sto 
3 
x 2 

V* 

sto 
5 

stop 
rcl 
0 

rcl 
2 

\/x 

arc 
cos 
sto 
0 
rcl 
1 

gin 
5 
2 

rcl 
0 


# 

KEY 

* 

00 

stop 

40 

01 

rcl 

41 

02 

3 

42 

03 

+ 

43 

04 

rcl 

44 

05 

5 

45 

06 

= 

46 

07 

arc 

47 

08 

sin 

48 

09 

goto 

49 

10 

0 

50 

11 

0 

51 

12 

3 

52 

13 

6 

53 

14 

0 

54 

15 

- 

55 

16 

rcl 

56 

17 

0 

57 

18 

= 

58 

19 

goto 

59 

20 

4 

60 

21 

0 

61 

22 


62 

23 


63 

24 


64 

25 


65 

26 


66 

27 


67 

28 


68 

29 


69 

30 


70 

31 


71 

32 


72 

33 


73 

34 


74 

35 


75 

36 


76 

37 


77 

38 


78 

39 


79 


TO SPHERICAL 
POLAR CO¬ 
ORDINATES 



R = \/x 2 + y 2 + z 2 


= arc tan - 


The value of 9 is given in the range 
0° to 360 = , the value of d> in the 
range —90° to 90°. 

Execution: 

x/run/y/run/z/run/ 

/run/ /run/ 






SPHERICAL 
POLAR TO 
CARTESIAN 
CO 

ORDINATES 



x = R cos 6 cos <> 
V = R sin 0 cos o 
z - R sin 6 

Execution: 

R/run/0 a /run/0° 
/run/ /run/ / 
run/ 


25.3 


KEY 

4 

KEY 

# 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

stop 

03 


43 

sto 

04 


44 

1 

05 


45 

stop 

06 


46 

sto 

07 


47 

2 

08 


48 

cos 

09 


49 

X 

10 


50 

rcl 

11 


51 

0 

12 


52 

X 

13 


53 

rcl 

14 


54 

1 

15 


55 

cos 

16 


56 

x^y 

17 


57 

= 

18 


58 

stop 

19 


59 

rcl 

20 


60 

1 

21 


61 

sin 

22 


62 

= 

23 


63 

stop 

24 


64 

rcl 

25 


65 

0 

26 


66 

X 

27 


67 

rcl 

28 


68 

2 

29 


69 

sin 

30 


70 

= 

31 


71 

goto 

32 


72 

0 

33 


73 

0 

34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 

















25.4 


KEY 

# 

KEY 

* 

HALT 

00 

— 

40 

sto 

01 

rcl 

41 

3 

02 

0 

42 

stop 

03 

* 

43 

sto 

04 

rcl 

44 

4 

05 

2 

45 

- 

06 

sin 

46 

rcl 

07 

) 

47 

1 

08 

= 

48 

X 

09 

stop 

49 

rcl 

10 

goto 

50 

2 

11 

0 

51 

sin 

12 

1 

52 

+ 

13 


53 

( 

14 


54 

rcl 

15 


55 

3 

16 


56 

- 

17 


57 

rcl 

18 


58 

0 

19 


59 

X 

20 


60 

rcl 

21 


61 

2 

22 


62 

cos 

23 


63 

) 

24 


64 

= 

25 


65 

stop 

26 


66 

rcl 

27 


67 

4 

28 


68 

- 

29 


69 

rcl 

30 


70 

1 

31 


71 

X 

32 


72 

rcl 

33 


73 

2 

34 


74 

cos 

35 


75 

- 

36 


76 

( 

37 


77 

rcl 

38 


78 

3 

39 


79 


TRANS¬ 
LATION AND 
ROTATION OF 
CO 

ORDINATES 


V. |Y 


vi 

) 

/ 




/ s 

Across by a, up by b. round by 0 0 
Pre-execution: 

a/sto/0 

b/sto/1 

O/slo/2 

Execution: 

x/run/y/run/ /run/ 


























Example: 

a = 1 
b = 1 

d = 45° 


25 4lii) 


Store in appropriate memories. 

1/run/1/run/ /run/ 


4/run/5/run/ 

/run/ 

3/run/2/run / 

/run/ 


etc. 

So under this transformation: 

( 1 . 1 ) - ( 0 , 0 ) 

(4,5) - (4.9497. .7071) 
(3.2) - (2.121,-.7071) 
etc. 


25.5 


KEY 

# 

KEY 

# 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

stop 

03 


43 

sto 

04 


44 

1 

05 


45 

stop 

06 


46 

sto 

07 


47 

2 

08 


48 

stop 

09 


49 

- 

10 


50 

rcl 

11 


51 

1 

12 


52 

* 

13 


53 

( 

14 


54 

rcl 

15 


55 

2 

16 


56 

- 

17 


57 

rcl 

18 


58 

0 

19 


59 

1 

20 


60 

= 

21 


61 

sto 

22 


62 

2 

23 


63 

arc 

24 


64 

tan 

25 


65 

stop 

26 


66 

rcl 

27 


67 

2 

28 


68 

X 

29 


69 

rcl 

30 


70 

0 

31 


71 

+/- 

32 


72 

+ 

33 


73 

rcl 

34 


74 

1 

35 


75 

= 

36 


76 

goto 

37 


77 

0 

38 


78 

0 

39 


79 


INTERCEPT 
AND SLOPE 
OF A LINE 
GIVEN TWO 
POINTS ON IT 



0 is given in the range ( — 90 c . 
90°). 

If Error is returned then slope = 
90 c and there is no intercept: 
C/goto/0/1 
before re-using. 


Execution: 

x 0 /run/y 0 /run/x,/ 
run/yt/run/ /run/ 

















25.6 


AREA OF 
TRIANGLE 
FROM CO¬ 
ORDINATES 
OF VERTICES 


i i i 


X 

o 

X 

x 2 

Vo Vi 

V 2 


Execution: 

x 0 /run/y 0 /run/x,/ 

run/y 1 /run/x 2 /run/ 

y 2 /run/ 


KEY 

# 

KEY 

it 

HALT 

00 

X 

40 

sto 

01 

rcl 

41 

0 

02 

1 

42 

stop 

03 

) 

43 

sto 

04 

+ 

44 

1 

05 

2 

45 

stop 

06 

= 

46 

sto 

07 

X 2 

47 

2 

08 

v/x 

48 

Stop 

09 

goto 

49 

sto 

10 

0 

50 

3 

11 

0 

51 

+/- 

12 


52 

4- 

13 


53 

rcl 

14 


54 

1 

15 


55 

X 

16 


56 

stop 

17 


57 

+ 

18 


58 

( 

19 


59 

rcl 

20 


60 

2 

21 


61 

— 

22 


62 

rcl 

23 


63 

0 

24 


64 

X 

25 


65 

stop 

26 


66 

) 

27 


67 

+ 

28 


68 

( 

29 


69 

rcl 

30 


70 

0 

31 


71 

X 

32 


72 

rcl 

33 


73 

3 

34 


74 

1 

35 


75 

- 

36 


76 

( 

37 


77 

rcl 

38 


78 

2 

39 


79 
















25.7 


KEY 

it 

KEY 

- 

HALT 

00 


40 

x 2 

01 


41 

+ 

02 


42 

1 

03 


43 

y* 

04 


44 

i 

05 


45 


06 


46 

5 

07 


47 

T 

08 


48 

Stop 

09 


49 

= 

10 


50 

goto 

11 


51 

0 

12 


52 

0 

13 


53 


14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


RADIUS OF 
CURVATURE 


P = 



3/2 


Execution: 

2/-/S/"/ 


























INTERCEPTS 
OF A LINE 



ax + 0 y + 7 - 0 

a = -I 
a 


Execution: 

a/run/^/run/ 7 / 
run/ /run/ 


25.8 


KEY 

# 

KEY 

# 

HALT 

00 


40 

+/- 

01 


41 

sto 

02 


42 

0 

03 


43 

stop 

04 


44 

+/- 

05 


45 

* 

06 


46 

stop 

07 


47 

= 

08 


48 

1 /x 

09 


49 

stop 

10 


50 

rcl 

11 


51 

0 

12 


52 

= 

13 


53 

1 /x 

14 


54 

goto 

15 


55 

0 

16 


56 

0 

17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 

















KEY 

* 

KEY 


HALT 

00 


40 

1 /x 

01 


41 

X 

02 


42 

stop 

03 


43 

+/- 

04 


44 

= 

05 


45 

goto 

06 


46 

0 

07 


47 

0 

08 


48 


09 


49 


10 


50 


11 


51 


12 


52 


13 


53 


14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


EQUATION 259 
OF LINE 
FROM 

INTERCEPTS 



b 

m =-. c = b 

a 

Execution: 

a/run/b/run/ 

Error will be returned if a = 0 
(infinite slope). 


























DISTANCE 
BETWEEN 
POINTS IN 
3-SPACE 


Distance between 

(x,, y |f z,) and (x 2 . y 2 , z 2 ). 

d = 

vtx, — x 2 ) 2 4- (y, -y 2 ) 2 + (z,-z 2 )? 


Execution 

(a) Xt/run/y^run/z, 
run/x 2 /run/y 2 / 
run/z 2 /run/ 

lb) to repeat with same (x,, y 1t z,): 
x 2 /run/y 2 /run/ 
z 2 /run/ 

(c) to repeat with new (x,, y 1( z,): 
goto/O/1 
then as in (a). 


25.10 


KEY 

- 

KEY 

5? 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

stop 

03 


43 

sto 

04 


44 

1 

05 


45 

stop 

06 


46 

sto 

07 


47 

2 

08 


48 

stop 

09 


49 

- 

10 


50 

rcl 

11 


51 

0 

12 


52 

= 

13 


53 

X 2 

14 


54 


15 


55 

1 

16 


56 

stop 

17 


57 

- 

18 


58 

rcl 

19 


59 

1 

20 


60 

) 

21 


61 

X 2 

22 


62 

+ 

23 


63 

{ 

24 


64 

stop 

25 


65 

- 

26 


66 

rcl 

27 


67 

2 

28 


68 

) 

29 


69 

X 2 

30 


70 

= 

31 


71 

v'* 

32 


72 

goto 

33 


73 

0 

34 


74 

9 

35 


75 


36 


76 


37 


77 


38 


78 


39 


79 



















25.11 


KEY 

# 

HALT 

00 

sto 

01 

0 

02 

stop 

03 

sto 

04 

1 

05 

stop 

06 

sto 

07 

2 

08 

stop 

09 

X 

10 

rcl 

11 

0 

12 

+ 

13 

( 

14 

stop 

15 

X 

16 

rcl 

17 

1 

18 

) 

19 

+ 

20 

rcl 

21 

2 

22 

* 

23 

( 

24 

rcl 

25 

0 

26 

X 2 

27 

+ 

28 

rcl 

29 

1 

30 

X 2 

31 

) 

32 


33 

- 

34 

X 2 

35 

rz 

V x 

36 

goto 

37 

0 

38 

9 

39 



= I ax„ - by 0 > c | 
| vV + b 3 


Execution: 

(a) a/run/b/run/c 
/run/x 0 /run/y 0 / 
run/ 

(b) to repeat with same a. b, c: 
new x 0 /run/new y 0 /run/ 

(c) to repeat with new a. b, c: 
goto/0/1 then as in (a) 


# 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 






26. VECTORS, 
MATRICES AND 
DETERMINANTS 

26.1 Produce of 2 x 2 — matrices 

26.2 Left product of 2 x 2 — 
matrix with fixed 2x2- 
matrix 

26.3 Right product of 2 x 2— 
matrix with fixed 2x2 
matrix 

26.4 Product of 2 x 2 — matrix 
and 2 — vector 

26.5 Product of 2 — vector by 
fixed 2 x 2 — matrix 

26.6 Determinant of 2 x 2 matrix 

26.7 Inverse of 2 x 2 matrix 

26.8 Dot product of 3 — vectors 

26.9 Dot product 3 — vector with 
fixed 3 — vector 

26.10 Crossproduct of two 3 — 
vectors 

26.11 Tensor product of two 3 — 
vectors 

26.12 Multiply 3x3 matrices 


26(H) 

26.13 Product of 3 x 3 matrix with 
a 3 vector 

26.14 Determinant of a 3 x 3 
matrix 

26.15 Inverting a 3 x 3 matrix 

26.16 Vector Triple Product 


PRODUCT OF 

2x2- 

MATRICES 


, a, b,,,a, b,\ /. 3 b 3 v 

' y c 2 d 2 1 ' C 3 d 3 ' 

Execution: 

a,/run/b,/ 
run/c,/run/d t / 
run/a 2 /run/b 2 / 
run/c 2 /run/d 2 / 
run/ /run/ / 
run/ /run/ 


26.1 


KEY 

# 

KEY 

# 

HALT 

00 

rcl 

40 

sto 

01 

3 

41 

0 

02 

= 

42 

stop 

03 

M + 

43 

sto 

04 

5 

44 

1 

05 

rcl 

45 

stop 

06 

3 

46 

sto 

07 

X 

47 

2 

08 

stop 

48 

stop 

09 

= 

49 

sto 

10 

M + 

50 

3 

11 

2 

51 

rcl 

12 

rcl 

52 

2 

13 

1 

53 

X 

14 

= 

54 

stop 

15 

M + 

55 

= 

16 

0 

56 

sto 

17 

rcl 

57 

5 

18 

1 

58 

rcl 

19 

) 

59 

0 

20 

) 

60 

= 

21 

= 

61 

+ 

22 

stop 

62 

( 

23 

rcl 

63 

rcl 

24 

0 

64 

0 

25 

stop 

65 

X 

26 

rcl 

66 

stop 

27 

5 

67 

= 

28 

stop 

68 

sto 

29 

rcl 

69 

0 

30 

2 

70 

rcl 

31 

goto 

71 

2 

32 

0 

72 

= 

33 

0 

73 

sto 

34 


74 

2 

35 


75 

stop 

36 


76 

X 

37 


77 

< 

38 


78 

X 

39 


79 














26.2 


KEY 

# 

KEY 

# 

HALT 

00 

4 

40 

x 

01 

rcl 

41 

rcl 

02 

1 

42 

2 

03 

= 

43 


04 

M + 

44 

" = j 

05 

6 

45 

sto 

06 

rcl 

46 

5 

07 

1 

47 

rcl 

08 

) 

48 

0 

09 

) 

49 

= 

10 


50 

4- i 

11 

stop 

51 

1 

12 

rcl 

52 

rcl 

13 

6 

53 

0 

14 

stop 

54 

X 

15 

rcl 

55 

stop 

16 

5 

56 

= 

17 

stop 

57 

sto 

18 

rcl 

58 

6 

19 

4 

59 

rcl 

20 

goto 

60 

2 

21 

0 

61 

= 

22 

0 

62 

sto 

23 


63 

4 

24 


64 

stop 

25 


65 

X 

26 


66 

( 

27 


67 

X 

28 


68 

rcl 

29 


69 

3 

30 


70 

= 

31 


71 

M4 

32 


72 

5 

33 


73 

rcl 

34 


74 

3 

35 


75 

X 

36 


76 

stop 

37 


77 

= 

38 


78 

M 4 

39 


79 


a b V, a, b,, , a, b, 

c d '\c 1 d, ' \c 2 do 1 

Store a, b, c, d in memories 0. 1. 
2, 3 respectively. 

Execution: 

a^run/b,/ 
run/c,/run/d,/ 
run / /run/ / 
run/ /run/ 

Program may be re-run with 
different a,, b,, c,. d, without 
re-entering a, b, c, d. 


PRODUCT OF 
2x2-MATRIX 
WITH FIXED 
2x2-MATRIX 
(ON THE 
RIGHT) 


Store a, b. c. d in memories 0. 1, 

2, 3 respectively' 

Execution: 

3 , /run/b^ 
run/c,/run/d,/ 
run/ /run/ / 
run/ /run/ 

Program may be re run with 
different a 1f b,. c,. d, without 
re entering a, b. c. d. 


26.3 


KEY 


KEY 

* 

HALT 

00 

stop 

40 

* 

01 

= 

41 

rcl 

02 

M + 

42 

0 

03 

6 

43 

x«^y 

04 

rcl 

44 

| = 

05 

3 

45 

sto 

06 

= 

46 

4 

07 

) 

47 

rcl 

08 

= 

48 

1 

09 

*<«^y 

49 

= 

10 

rcl 

50 

sto 

11 

4 

51 

5 

12 

x^^y 

52 

rcl 

13 

sto 

53 

2 

14 

4 

54 

* 

15 

x«^y 

55 

stop 

16 

stop 

56 

- 

17 

rcl 

57 

M -f 

18 

5 

58 

4 

19 

stop 

59 

rcl 

20 

rcl 

60 

3 

21 

6 

61 

= 

22 

stop 

62 

M + 

23 

rcl 

63 

5 

24 

4 

64 

rcl 

25 

goto 

65 

0 

26 

0 

66 

X 

27 

0 

67 

stop 

28 


68 

= 

29 


69 

sto 

30 


70 

6 

31 


71 

rcl 

32 


72 

1 

33 


73 

= 

34 


74 

+ 

35 


75 

( 

36 


76 

rcl 

37 


77 

2 

38 


78 

X 

39 


79 


























KEY 

# 

KEY 

* 

HALT 

00 

5 

40 

sto 

01 

goto 

41 

0 

02 

0 

42 

stop 

03 

0 

43 

sto 

04 


44 

1 

05 


45 

stop 

06 


46 

sto 

07 


47 

2 

08 


48 

stop 

09 


49 

sto 

10 


50 

3 

11 


51 

rcl 

12 


52 

0 

13 


53 

X 

14 


54 

stop 

15 


55 

= 

16 


56 

sto 

17 


57 

4 

18 


58 

rcl 

19 


59 

2 

20 


60 

= 

21 


61 

sto 

22 


62 

5 

23 


63 

rcl 

24 


64 

1 

25 


65 

X 

26 


66 

stop 

27 


67 

= 

28 


68 

M * 

29 


69 

4 

30 


70 

rcl 

31 


71 

3 

32 


72 

= 

33 


73 

M + 

34 


74 

5 

35 


75 

rcl 

36 


76 

4 

37 


77 

stop 

38 


78 

rcl 

39 


79 


PRODUCT 264 
OF 2x2- 
M ATRIX AND 
2-VECTOR 



Execution. 

a/run/b/run/c/run/d/ 
mn/x/run/y/ 
run/ /run/ 









MULTIPLI¬ 
CATION OF 
2-VECTOR 
BY FIXED 
2x2-MATRIX 


c :)(;)=(;.') 

Store a. b, c, d in memories 0, 1. 
2, 3 respectively. 


Execution: 

x/run/y/run/ 

/run/ 

It is not necessary to re-enter a, b. 
c, d to re-run with different x, y. 


26.5 


KEY - 

KEY 

s? 

HALT 

00 


40 

X 

01 


41 

rcl 

02 


42 

0 

03 


43 

x ^►y 

04 


44 

= 

05 


45 

sto 

06 


46 

4 

07 


47 

rcl 

08 


48 

2 

09 


49 

= 

10 


50 

sto 

11 


51 

5 

12 


52 

rcl 

13 


53 

1 

14 


54 

X 

15 


55 

stop 

16 


56 

= 

17 


57 

M + 

18 


58 

4 

19 


59 

rcl 

20 


60 

3 

21 


61 

= 

22 


62 

M + 

23 


63 

5 

24 


64 

rcl 

25 


65 

4 

26 


66 

stop 

27 


67 

rcl 

28 


68 

5 

29 


69 

goto 

30 


70 

0 

31 


71 

0 

32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 
























KEY 

# KEY 

HALT 

00 

sto 

01 

0 

02 

stop 

03 

X 

04 

stop 

05 

+/- 

06 

+ 

07 

( 

08 

stop 

09 

X 

10 

rcl 

11 

0 

12 

) 

13 

= 

14 

goto 

15 

0 

16 

0 

17 


18 


19 


20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 


la b I 
| c d I 

Execution: 

a/run/b/run/c/ 

run/d/run/ 


# 

40 

41 

42 

43 

44 

46 

46 

47 

48 

49 

50 

61 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 



INVERSE OF 
2x2-MATRIX 


26.7 


Execution: 

a/run/b/run/c/ 
run/d/run/ /run/ 

/run/ /run/ 

Gives error if determinant = 0. 


KEY 

# 

KEY 

# 

HALT 

00 

rcl 

40 

sto 

01 

3 

41 

1 

02 

+/— 

42 

stop 

03 

= 

43 

sto 

04 

stop 

44 

2 

05 

rcl 

45 

stop 

06 

1 

46 

sto 

07 

= 

47 

3 

08 

goto 

48 

stop 

09 

0 

49 

sto 

10 

0 

50 

4 

11 


51 

rcl 

12 


52 

1 

13 


53 

X 

14 


54 

rcl 

15 


55 

4 

16 


56 

- 

17 


57 

( 

18 


58 

rcl 

19 


59 

2 

20 


60 

X 

21 


61 

rcl 

22 


62 

3 

23 


63 

) 

24 


64 

= 

25 


65 

sto 

26 


66 

5 

27 


67 

rcl 

28 


68 

4 

29 


69 

* 

30 


70 

rcl 

31 


71 

5 

32 


72 

= 

33 


73 

stop 

34 


74 

rcl 

35 


75 

2 

36 


76 

+/- 

37 


77 

= 

38 


78 

stop 

39 


79 














KEY 

* 

KEY 

it 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

stop 

03 


43 

sto 

04 


44 

1 

05 


45 

stop 

06 


46 

sto 

07 


47 

2 

08 


48 

stop 

09 


49 

X 

10 


50 

rcl 

11 


51 

0 

12 


52 

+ 

13 


53 

( 

14 


54 

stop 

15 


55 

X 

16 


56 

rcl 

17 


57 

1 

18 


58 

) 

19 


59 

+ 

20 


60 

( 

21 


61 

stop 

22 


62 

X 

23 


63 

rcl 

24 


64 

2 

25 


65 

) 

26 


66 

= 

27 


67 

goto 

28 


68 

0 

29 


69 

0 

30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


2 

PRODUCT 

OF 

3-VECTORS 


(x,. V,. Zi)/x 3 \ 


= X,x 2 + y,y 2 + z,z 2 


Execution: 

x^run/y^run/z,/ 

run/x 2 /run/y 2 /run 

/z 2 /run/ 
























26.9 


DOT 

PRODUCT OF 
3-VECTOR 
WITH FIXED 
3-VECTOR 


(a, b, c) /x\ 

W 

= ax + by + cz 

Store a. b. c in memories 0, 1. 2 
respectively. 

Execution: 

x/run/y/run/z/ 

run/ 

The program may be re run for 
different x, y, z without 
re-entering a, b, c. 


KEY 

# 

KEY 

# 

HALT 

00 


40 

X 

01 


41 

rcl 

02 


42 

0 

03 


43 

+ 

04 


44 

< 

05 


45 

stop 

06 


46 

X 

07 


47 

rcl 

08 


48 

1 

09 


49 

) 

10 


50 

+ 

11 


51 

1 

12 


52 

Stop 

13 


53 

X 

14 


54 

rcl 

15 


55 

2 

16 


56 

) 

17 


57 

= 

18 


58 

goto 

19 


59 

0 

20 


60 

0 

21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 














KEY 

# 

KEY 

it 

HALT 

00 

X 

40 

sto 

01 

rcl 

41 

0 

02 

5 

42 

Stop 

03 

) 

43 

sto 

04 

= 

44 

1 

05 

stop 

45 

stop 

06 

rcl 

46 

sto 

07 

0 

47 

2 

08 

x 

48 

stop 

09 

rcl 

49 

sto 

10 

4 

50 

3 

11 

— 

51 

stop 

12 

( 

52 

sto 

13 

rcl 

53 

4 

14 

3 

54 

stop 

15 

X 

55 

sto 

16 

rcl 

56 

5 

17 

1 

57 

X 

18 

) 

58 

rcl 

19 

= 

59 

1 

20 

goto 

60 

— 

21 

0 

61 

( 

22 

0 

62 

rcl 

23 


63 

4 

24 


64 

X 

25 


65 

rcl 

26 


66 

2 

27 


67 

) 

28 


68 

= 

29 


69 

stop 

30 


70 

rcl 

31 


71 

3 

32 


72 

X 

33 


73 

rcl 

34 


74 

2 

35 


75 

- 

36 


76 

( 

37 


77 

rcl 

38 


78 

0 

39 


79 


26,0 

PRODUCT 
OF TWO 
3-VECTORS 


(x, y r 2 ) a (x', y' ( z’) 

= (y2'—y'z, x'z — xz', xy'—x'y) 
= (Pi.p 2 ,p 3 ) 

Execution: 

x/run/y/run/z/run/ 
x'/run/y'/run/z'/ 
run/ /run/ / 
run / 



















TENSOR 
PRODUCT 
OF TWO 
3-VECTORS 



( X1Y1 x,y 2 x,y 3 ^ 
x 2 y t x 2 y 2 x 2 y 3 
x 3 Vi x 3 y 2 x 3 y 3 j 


Pre-execution: 

goto/0/1 


Execution: 

y t /run/y 2 /run/y 3 / 
run/x^run/ 
run/ /run/ 
x 2 /run/ /run/ 
/run/ / 
x 3 /run/ /run 
/ ■ /run/ 


26.11 


KEY 

# 

KEY 

# 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

stop 

03 


43 

sto 

04 


44 

1 

05 


45 

stop 

06 


46 

sto 

07 


47 

2 

08 


48 

stop 

09 


49 

X 

10 


50 

rcl 

11 


51 

0 

12 


52 

x ◄►y 

13 


53 

= 

14 


54 

stop 

15 


55 

rcl 

16 


56 

1 

17 


57 

= 

18 


58 

stop 

19 


59 

rcl 

20 


60 

2 

21 


61 

= 

22 


62 

goto 

23 


63 

0 

24 


64 

9 

25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 














26.12 


KEY 

* KEY 

# 

HALT 

00 

40 

sto 

01 

41 

0 

02 

42 

stop 

03 

43 

sto 

04 

44 

1 

05 

45 

stop 

06 

46 

sto 

07 

47 

2 

08 

48 

stop 

09 

49 

' X 

10 

50 

rcl 

11 

51 

0 

12 

52 

•f 

13 

53 

( 

14 

54 

stop 

15 

55 

X 

16 

56 

rcl 

17 

57 

1 

18 

58 

) 

19 

59 

+ 

20 

60 

( 

21 

61 

stop 

22 

62 

X 

23 

63 

rcl 

24 

64 

2 

25 

65 

) 

26 

66 

! = 

27 

67 

goto 

28 

68 

0 

29 

69 

9 

30 

70 


31 

71 


32 

72 


33 

73 


34 

74 


35 

75 


36 

76 


37 

77 


38 

78 


39 

79 



a l2 

a 72 

332 




C 13 

C 23 

C33, 


b n 

b,i 

^b 3 i 


b 12 

b M 

bsz 



This program finds row i of C 
given B and row i of A. 


Pre-execution: 

goto/O/1 


Execution: 

ajt/run/aij/run/ 
a i3 /run/bn/run/ 
b 21 /run/b 31 /run/ 
/b^/run/b^/ 
run/b^/run/ / 
b 13 /run/b 23 /run/ 
b^/run/ 


26.13 


PRODUCT 
OF A 

3x3 MATRIX 
WITH A 
3-VECTOR 




Pre-execution: 

goto/O/1 

Execution: 

x/run/y/run/z/ 
run/a n /run/a, 2 
run/a 13 /run/ / 
a 2 t/run/a22/run/ 
an/runi /a 31 
/run/a^/run/ 

833/ 


KEY 

# 

KEY 

M 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

stop 

03 


43 

sto 

04 


44 

1 

05 


45 

stop 

06 


46 

sto 

07 


47 

2 

08 


48 

stop 

09 


49 

X 

10 


50 

rcl 

11 


51 

0 

12 


52 

+ 

13 


53 

( 

14 


54 

stop 

15 


55 

X 

16 


56 

rcl 

17 


57 

1 

18 


58 

) 

19 


59 

+ 

20 


60 

( 

21 


61 

stop 

22 


62 

X 

23 


63 

rcl 

24 


64 

2 

25 


65 

) 

26 


66 

= 

27 


67 

goto 

28 


68 

0 

29 


69 

9 

30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 














KEY 

# 

KEY 

* 

HALT 

00 

rcl 

40 

sto 

01 

0 

41 

0 

02 

x 

42 

stop 

03 

rcl 

43 

sto 

04 

5 

44 

1 

05 

) 

45 

stop 

06 

X 

46 

sto 

07 

stop 

47 

2 

08 

) 

48 

stop 

09 

+ 

49 

sto 

10 

( 

50 

3 

11 

rcl 

51 

stop 

12 

0 

52 

sto 

13 

X 

53 

4 

14 

rcl 

54 

stop 

15 

4 

55 

sto 

16 

— 

56 

5 

17 

( 

57 

X 

18 

rcl 

58 

rcl 

19 

1 

59 

1 

20 

X 

60 

- 

21 

rcl 

61 

( 

22 

3 

62 

rcl 

23 

) 

63 

2 

24 

X 

64 

X 

25 

stop 

65 

rcl 

26 

) 

66 

4 

27 

= 

67 

) 

28 

goto 

68 

X 

29 

0 

69 

stop 

30 

0 

70 

+ 

31 


71 

‘( 

32 


72 

rcl 

33 


73 

2 

34 


74 

X 

35 


75 

rcl 

36 


76 

3 

37 


77 

- 

38 


78 

1 

39 


79 


DETERMI- 26,4 
NANT OF A 
3x3 MATRIX 


A 


a n 

a 12 

a l3 

a 21 

a 22 

a 33 

a 31 

a 32 

a 33 


Execution: 

a n /run/a, 2 /run/a 13 /run 
a 2 , /run/a 22 /run/a 23 /run/ 
a 31 /run/a32/run/a33 
/run/ 





















INVERTING A 
3x3-MATRIX 


This program finds the adjoint 
matrix and the determinant of a 
matrix 

A = (a„). 

Then 

A " = f^adiA. 

adjA = (aij). 

Execution: 

a 21 /run/a^/run/a^/run/ 
a 31 /run/a^/run/a^/run/ 

/run/ /run/ / 
a 31 /run/a^/run/a^/run/ 
a, 1 /run/a 12 /run/a 13 /run/ 

/run/ /run/ / 
a n /run/a 12 /run/a 13 /run/ 
a 2 i /run/a^/run/a^/run/ 

/run/ /run/ 

goto/6/5/a n /run/a,, /run/a 12 / 
run/a 21 /run/a 13 /run/a 31 /run/| I 

Now 

A " = w adjA 

A' 1 = (a-, 1 ) 

So 

a n /4/|A|/=/ /a 12 /=/ / 

a 13 /=/ .. . etc. 


26.15 


KEY # 

KEY 

# 

HALT 

00 

X 

40 

sto 

01 

rcl 

41 

0 

02 

5 

42 

stop 

03 

) 

43 

sto 

04 

= 

44 

1 

05 

stop 

45 

stop 

06 

rcl 

46 

sto 

07 

0 

47 

2 

08 

X 

48 

stop 

09 

rcl 

49 

sto 

10 

4 

50 

3 

11 

- 

51 

Stop 

12 

( 

52 

sto 

13 

rcl 

53 

4 

14 

1 

54 

Stop 

15 

X 

55 

sto 

16 

rcl 

56 

5 

17 

3 

57 

X 

18 

) 

58 

rcl 

19 

= 

59 

1 

20 

goto 

60 

- 

21 

0 

61 

( 

22 

0 

62 

rcl 

23 


63 

2 

24 


64 

X 

25 

X 

65 

rcl 

26 

stop 

66 

4 

27 

+ 

67 

) 

28 

( 

68 

= 

29 

stop 

69 

Stop 

30 

X 

70 

rcl 

31 

stop 

71 

2 

32 

) 

72 

X 

33 

+ 

73 

rcl 

34 

. < 

74 

3 

35 

stop 

75 

- 

36 

X 

76 

( 

37 

stop 

77 

rcl 

38 

) 

78 

0 

39 

= 

79 



























26.16 


KEY 

# 

KEY 

tt 

HALT 

00 

rcl 

40 

sto 

01 

0 

41 

0 

02 

X 

42 

stop 

03 

rcl 

43 

sto 

04 

5 

44 

1 

05 

) 

45 

stop 

06 

= 

46 

sto 

07 

stop 

47 

2 

08 

sto 

48 

stop 

09 

5 

49 

sto 

10 

rcl 

50 

3 

11 

0 

51 

stop 

12 

X 

52 

sto 

13 

rcl 

53 

4 

14 

4 

54 

Stop 

15 

- 

55 

sto 

16 

( 

56 

5 

17 

rcl 

57 

X 

18 

1 

58 

rcl 

19 

X 

59 

1 

20 

rcl 

60 

- 

21 

3 

61 

( 

22 

) 

62 

rcl 

23 

, = 

63 

2 

24 

stop 

64 

X 

25 

sto 

65 

rcl 

26 

0 

66 

4 

27 

rcl 

67 

) 

28 

5 

68 

= 

29 

sto 

69 

stop 

30 

1 

70 

sto 

31 

rcl 

71 

6 

32 

6 

72 

rcl 

33 

sto 

73 

2 

34 

2 

74 

X 

35 

goto 

75 

rcl 

36 

0 

76 

3 

37 

9 

77 

— 

38 


78 

( 

39 


79 


This program computes the triple 
vector product 
a * b ' c 

of three vectors a, b, and c. 

The vectors a. b and c are 
represented in the form 
a = a, i + a 2 j + a 3 k 
b = b, j + b 2 j + b 3 k 
c = c, i + c 2 j + c 3 k 
where i. j and k are, respectively 
unit vectors in the directions of 
the x—, y- and 2 — axes of a 
rectangular Cartesian system. 

The triple vector product is 
represented by 
a a b a c = Pi + Qj Rk 

Execution: 

c, /run/c 2 /run/c 3 /run/b, /run/b 2 / 
run/bcj/run/run/run/run/a, /run/ 
a 2 /run/a 3 /run/ /run/ /run/ 

Example: 

3/run/2/run/1 /run/1 /run/2/run/3/ 
run/run/run/run/ /run/ / 
run/ 


All angles are in degrees 

27.1 Solution of triangles 

27.2 Median of triangle 

27.3 Area of triangle from the 
sides 

27.4 Area and height of a non¬ 
right angle triangle from two 
sides and included angle or 
two angles and included side. 

Spherical Trigonometry: 

27.5 First cosine formula 

27.6 Second cosine formula 

27.7 Sine formula and Napier's 
formula 

27.8 Area of spherical triangle 


27(iii 


To solve a spherical triangle: 

Given Use 

3 sides Program 5 

2 sides and included 

angle Program 5 

2 sides and other angle Program 7 

2 angles and included 

side Program 6 

2 angles and other side Program 7 

3 angles Program 6 

Warning: 

Ambiguous solutions are sometimes 
possible, though the programs only 
return one solution. Remember to 
make any necessary corrections. 


27.1 


THE 

SOLUTION OF 
TRIANGLES 



Sine formula: 

a _ b _ c 
sin a sin (3 sin 7 

Cosine formula: 

a 2 = b 2 + c 2 — 2 bc cos a 

Execution: 

(a) goto/ 0/1 /a/run/ 0 /run/ 

/b/run/ 

b 

(b) goto/ 1 / 2 /b/run/ 
c/run/a/run/a 

(c) goto/3/8/a/run/ 
b/run/c/run/ 

It is not necessary to repeat the 
goto to continue with executions 
of the same type. 


KEY 

# 

KEY 

# 

HALT 

00 

+ 

40 

sin 

01 

stop 

41 

+ 

02 

sto 

42 

stop 

03 

0 

43 

sin 

04 

X 2 

44 

X 

05 

+ 

45 

stop 

06 

stop 

46 

= 

07 

sto 

47 

goto 

08 

1 

48 

0 

09 

X 2 

49 

0 

10 

* 

50 

stop 

11 

2 

51 

sto 

12 

-r 

52 

0 

13 

rcl 

53 

X 2 

14 

0 

54 

+ 

15 

* 

55 

stop 

16 

rcl 

56 

sto 

17 

1 

57 

1 

18 

= 

58 

X 2 

19 

arc 

59 

- 

20 

cos 

60 

1 

21 

stop 

61 

2 

22 

goto 

62 

X 

23 

3 

63 

rcl 

24 

8 

64 

0 

25 


65 

X 

26 


66 

rcl 

27 


67 

1 

28 


68 

X 

29 


69 

stop 

30 


70 

cos 

31 


71 

) 

32 


72 

= 

33 


73 

n/x 

34 


74 

goto 

35 


75 

1 

36 


76 

1 

37 


77 

X 2 

38 


78 

+/- 

39 


79 















KEY 

* KEY 

# 

HALT 

00 

40 

X 2 

01 

41 

+/- 

02 

42 


03 

43 

_J_ 

04 

44 

stop 

05 

45 

X 2 

06 

46 

+ 

07 

47 

stop 

08 

48 

X 2 

09 

49 

X 

10 

50 

2 

11 

51 

1 

12 

52 

= 

13 

53 


14 

54 

* 

15 

55 

2 

16 

56 

= 

17 

57 

goto 

18 

58 

0 

19 

59 

0 

20 

60 


21 

61 


22 

62 


23 

63 


24 

64 


25 

65 


26 

66 


27 

67 


28 

68 


29 

69 


30 

70 


31 

71 


32 

72 


33 

73 


34 

74 


35 

75 


36 

76 


37 

77 


38 

78 


39 

79 


27.2 

OF TRIANGLE 



v/2(b 2 -l- c 2 ) - a 2 

--j- 

Execution: 

a/run/b/run/c/ 

run/ 





27.3 


AREA OF 
TRIANGLE 
FROM 

LENGTH OF 
SIDES 



Area A - \/s(s — a)(s — b)(s — c) 


S = 


a + b + c 
2 


Execution: 

a/run/b/run/c/run/ 


KEY 

i # 

KEY 

s 

HALT 

00 

\fi 

40 

sto 

01 

goto 

41 

0 

02 

0 

42 

+ 

03 

0 

43 

stop 

04 


44 

sto 

05 


45 

1 

06 


46 

+ 

07 


47 

stop 

08 


48 

sto 

09 


49 

2 

10 


50 

= 

11 


51 

* 

12 


52 

2 

13 


53 

= 

14 


54 

sto 

15 


55 

3 

16 


56 

X 

17 


57 

( 

18 


58 

— 

19 


59 

rcl 

20 


60 

1 

21 


61 

) 

22 


62 

X 

23 


63 

( 

24 


64 

rcl 

25 


65 

3 

26 


66 

- 

27 


67 

rcl 

28 


68 

0 

29 


69 

) 

30 


70 

X 

31 


71 

( 

32 


72 

rcl 

33 


73 

3 

34 


74 

- 

35 


75 

rcl 

36 


76 

2 

37 


77 

) 

38 


78 

= 

39 


79 



















KEY 

# 

KEY 

* 

HALT 

00 


40 

X 

01 


41 

stop 

02 


42 

sin 

03 


43 

X 

04 


44 

stop 

05 


45 

* 

06 


46 

2 

07 


47 

= 

08 


48 

goto 

09 


49 

0 

10 


50 

0 

11 


51 

stop 

12 


52 

X 

13 


53 

( 

14 


54 

*r 

15 


55 

( 

16 


56 

stop 

17 


57 

tan 

18 


58 

1 /x 

19 


59 

+ 

20 


60 

stop 

21 


61 

tan 

22 


62 

1 /x 

23 


63 

) 

24 


64 

= 

25 


65 

stop 

26 


66 

) 

27 


67 

4 

28 


68 

2 

29 


69 

= 

30 


70 

goto 

31 


71 

1 

32 


72 

2 

33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


27. 

AND AREA 
OF NON¬ 
RIGHT 
ANGLED 
TRIANGLE 


Height h = c sin 0 

a tan 0 tan 7 
tan 0 + tan 7 

Area A = 5 ah 

Execution: 

(a) goto/ 0/1 'c/run/ 

0/run/ /a/run/ 

(b) goto/1 /3/a/run/ 

0/run/7/run/ /run/ 

It is not necessary to repeat the 
goto to continue with executions 
of the same type. 
































KEY 

it 

KEY 


HALT 

00 

stop 


sto 

01 

sto 


0 

02 

0 


stop 

03 

stop 


sto 

04 

sto 

/ \ \ 

1 

05 

1 

1/ / 1 \ \ 

stop 

06 

stop 

f / b /T^ _ \ i 

sto 

07 

sto 

l 1 

2 

08 

2 

\\ / 

sin 

09 

cos 


x 

10 

X 

Nv / 

rcl 

11 

rcl 

_ 

1 

12 

1 


sin 

13 

cos 


x 

14 

+/— 

cos a - cos b cos c 





rcl 

15 

+ 

+ sin b sin c cos a 





0 

16 

rcl 


cos 

17 

0 

Execution: 

+ 

18 

cos 


{ 

19 


(a) goto/0/1/ 




o/run/b/run/ 

rcl 

20 

rcl 

c/run/ 

1 

21 

1 

(b) goto/4/1/ 

cos 

22 

sin 

a/run/b/run/ 

X 

23 


c/run/ 

rcl 

24 

rcl 


2 

25 

2 


cos 

26 

sin 


) 

27 

= 


= 

28 

arc 


arc 

29 

cos 


cos 

30 

goto 


goto 

31 

4 


0 

32 

0 


0 

33 




34 




35 




36 




37 




38 




39 



27.5 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 





o 


27.6 


KEY 

# KEY 

# 

HALT 

00 stop 

40 

sto 

01 sto 

41 

0 

02 0 

42 

stop 

03 stop 

43 

sto 

04 sto 

44 

1 

05 I 1 

45 

stop 

06 stop 

46 

sto 

07 sto 

47 

2 

08 2 

48 

sin 

09 cos 

49 

* 

10 x 

50 

rcl 

11 rcl 

51 

1 

12 1 

52 

sin 

13 cos 

53 

1 X 

14 + 

54 

rcl 

15 rcl 

55 

0 

16 0 

56 

cos 

17 cos 

57 

- 

18 * 

58 

( 

19 rcl 

59 

rcl 

20 1 

60 

1 

21 sin 

61 

cos 

22 * 

62 

: X 

23 rcl 

63 

rcl 

24 2 

64 

2 

25 sin 

65 

cos 

26 = 

66 

) 

27 arc 

67 

= 

28 cos 

68 

arc 

29 goto 

69 

cos 

30 4 

70 

goto 

31 0 

71 

0 

32 

72 

0 

33 

73 


34 

74 


35 

75 


36 

76 


37 

77 


38 

78 


39 

79 


O 



cos a = — cos 0 cos 7 

+ sin 0 sin 7 cos a 

Execution: 

(a) goto/0/1/ 
a/run/0/run/7/run/ 

(b) goto/4/1/ 
a/run/fl/runAy/run/ 



27.7 


SINE 

FORMULA 

AND 

NAPIER'S 

FORMULA 



sin a _ sin b _ sin c 
sin a sin/3 sin 7 


a — b . 
tan —— sin 


a + 0 
2 


. a —3 c 

= sin - tan - 
2 2 

Execution: 

(a) goto/ 0/1 /a/run/a/run/ 0 /run/ 

(b) goto/ 0/1 /a/run/a/run/b/run/ 

(c) goto/ 2/1 /a/run/b/run/o/ 
run//3/run/ 


KEY 

# 

KEY 

# 

HALT 

00 

) 

40 

sin 

01 

-r 

41 

+ 

02 

1 

42 

stop 

03 

rcl 

43 

sin 

04 

0 

44 

X 

05 

- 

45 

stop 

06 

rcl 

46 

sin 

07 

1 

47 

= 

08 

* 

48 

arc 

09 

2 

49 

sin 

10 

= 

50 

goto 

11 

sin 

51 

0 

12 

) 

52 

0 

13 

= 

53 


14 

arc 

54 


15 

tan 

55 


16 

x 

56 


17 

2 

57 


18 

= 

58 


19 

goto 

59 

stop 

20 

2 

60 

- 

21 

0 

61 

stop 

22 


62 

* 

23 


63 

2 

24 


64 

= 

25 


65 

tan 

26 


66 

X 

27 


67 

( 

28 


68 

stop 

29 


69 

sto 

30 


70 

0 

31 


71 

+ 

32 


72 

stop 

33 


73 

sto 

34 


74 

1 

35 


75 

* 

36 


76 

2 

37 


77 

= 

38 


78 

sin 

39 


79 




















KEY 

- KEY 

| # [ 

HALT 

00 

40 

.f 

01 

41 

stop 

02 

42 

4 

03 

43 

stop 

04 

44 


05 

45 

D ► R 

06 

46 

— 

07 

47 

n 

08 

48 

X 

09 

49 

stop 

10 

50 

X 2 

11 

51 

= 

12 

52 

goto 

13 

53 

0 

14 

54 

0 

15 

55 


16 

56 


17 

57 


18 

58 


19 

59 


20 

60 


21 

61 


22 

62 


23 

63 


24 

64 


25 

65 


26 

66 


27 

67 


28 

68 


29 

69 


30 

70 


31 

71 


32 

72 


33 

73 


34 

74 


35 

75 


36 

76 


37 

77 


38 

78 


39 

79 


27.8 

SPHERICAL 

TRIANGLE 


A — (a -+■ 0 + 7 — ir)R 2 
Enter a, 0, y in degrees. 

N.B. The formula is valid only 
when a, 0, y are in radians. 
The program takes this into 
account. 

Execution: 

oJ run/0/run/y/run/R/runl 


28. CALCULUS 

28.1 Numerical integration by the 
trapezoidal approximation 

28.2 Numerical integration by 
Simpson's Rule 

28.3 Numerical integration by 
Weddle's Formula 

For greatest accuracy, 
Simpson's rule generally gives 
the best results. 

28.4 Integration of function 

28.5 Numerical solution of a 
differential equation — 

Euler's formula 

28.6 Numerical solution of a 
differential equation — 
Runge-Kutta formula 

No program for numerical 
differentiation is given as the 
algorithm chosen depends on 
the nature of the data to be 
differentiated. The following, 
however, should be useful in 
numerical differentiation: 

28.7 Finite differences 


TRAPEZOIDAL 


FORMULA 


I - Jh(y„+2v, + 2y J 
+ ... + 2y„-, + y„l 

Execution: 

y 0 /run/y,/run/.. ./y„_i/run/ 
goto/1 /0/y n /run/h/run/ 


KEY 

# 

KEY 

# 

HALT 

00 


40 

-f 

01 


41 

( 

02 


42 

stop 

03 


43 

X 

04 


44 

2 

05 


45 

) 

06 


46 

goto 

07 


47 

0 

08 


48 

1 

09 


49 

) 

10 


50 

X 

11 


51 

stop 

12 


52 

T 

13 


53 

2 

14 


54 

= 

15 


55 

goto 

16 


56 

0 

17 


57 

0 

18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 














28.2 


KEY 

# KEY 

# 

HALT 

00 

40 

+ 

01 

41 

I 

02 

42 

stop 

03 

43 

X 

04 

44 

4 

05 

45 

) 

06 

46 

+ 

07 

47 

( 

08 

48 

stop 

09 

49 

X 

10 

50 

2 

11 

51 

) 

12 

52 

+ 

13 

53 

goto 

14 

54 

0 

15 

55 

2 

16 

56 

) 

17 

57 

X 

18 

58 

stop 

19 

59 

t 

20 

60 

3 

21 

61 

= 

22 

62 

goto 

23 

63 

0 

24 

64 

0 

25 

65 


26 

66 


27 

67 


28 

68 


29 

69 


30 

70 


31 

71 


32 

72 


33 

73 


34 

74 


35 

75 


36 

76 


37 

77 


38 

78 


39 

79 






Vo 

Vi 

Va 

Van 


h 


1= 5 h Wo + 4 yi + 2y 2 + 4y 3 . . . 
+ *V2n-1 + Van) 

Execution: 

yo/run/y,/run/y 2 /run/.. ./y 2 n-i/ 
run/goto/1/7/y 2n /run/h/run/ 







28.3 


WEDDLE 

FORMULA 



1 = (v °+ 5y, + y 2 + 6y 3 

+ y 4 + 5y 5 + y 6 ) 

Execution: 

Yo/run/vi/... y 5 /run/y 6 /run/ 
h/run/ 


KEY 

# 

KEY 

# 

HALT 

00 


40 

+ 

01 


41 

( 

02 


42 

stop 

03 


43 

X 

04 


44 

5 

05 


45 

) 

06 


46 

+ 

07 


47 

stop 

08 


48 

+ 

09 


49 

( 

10 


50 

stop 

11 


51 

X 

12 


52 

6 

13 


53 

) 

14 


54 

+ 

15 


55 

sup 

16 


56 

+ 

17 


57 

( 

18 


58 

stop 

19 


59 

X 

20 


60 

5 

21 


61 

) 

22 


62 

+ 

23 


63 

stop 

24 


64 

X 

25 


65 

stop 

26 


66 

X 

27 


67 

./EE 

28 


68 

3 

29 


69 

= 

30 


70 

goto 

31 


71 

0 

32 


72 

0 

33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 



















KEY 

HALT 

sto 

0 

+/- 

stop 

9 

9 

sto 

2 

0 

sto 

3 

sto 

1 

Y 

0 

U 

R 

S 

E 

G 

M 

E 

N 

T 


sto 

5 

rcl 

1 

1 

gin 


# 

KEY 

it 

00 

I 6 

40 

01 

4 

41 

02 

rcl 

42 

03 

5 

43 

04 

+ 

44 

05 

rcl 

45 

06 

6 

46 

07 

1 * 

47 

08 

2 

48 

09 

LLJ 

49 

10 

rcl 

50 

11 

2 

51 

12 

= 

52 

13 

M + 

53 

14 

3 

54 

15 

9 

55 

16 

8 

56 

17 

— 

57 

18 

rcl 

58 

19 

1 

59 

20 


60 

21 

gin 

61 

22 

7 

62 

23 

8 

63 

24 

rcl 

64 

25 

5 

65 

26 

sto 

66 

27 

6 

67 

28 

rcl 

68 

29 

2 

69 

30 

M 4- 

70 

31 

0 

71 

32 

1 

72 

33 

M + 

73 

34 

1 

74 

35 

goto 

75 

36 

1 

76 

37 

7 

77 

38 

rcl 

78 

39 

3 

79 


INTEGRATION 
OF A 

FUNCTION BY 
TRAPEZOIDAL 
FORMULA 

f b 

I = | f(x)dx 

*• 



I = £{f(a) +2f(a + h) + ... 

+ 2f (a + 98h) + f(b)} 

Write a program segment to 
evaluate f(x) where x is in 
memory 0 — unfortunately only 
fifteen spaces are available for 
this. 

Execution: 

a/run/b/run/ 

Execution times of the order of 
five or ten minutes can be 
expected. 

The number of intervals used in 
the integration can be changed by 
changing steps 07. 08. 55 and 56 
of the program appropriately. 







SOLUTION OF 
DIFFERENTIAL 
EQUATIONS 

This program determines an 
approximation to the solution of 
a differential equation of the form 

«*-v> 

by using Euler's method 
y(x + h) = y(x) + h f(x, y) 
where h is a step length. 

Given an initial condition 
y = a when x = b 
the program successively generates 
the values of y at the points 
x + nh for n = 1. 2 . . . 

Execution: 

h/run/x/run/y/run/ 
run/ /... 

Example: 

This program is written to solve 
the equation 

dy = X 2 + 2 

dx 

Any other equation can be 
programmed by entering the 
function f(x, y) from step 27. 

For the initial conditions y = 0 
when x - 0 the execution 
sequence with a step length 
h = 0.1 is: 

0.1/run/0/run/0/run/ /run/ 

/run/ 


28.5 


KEY 

# 

KEY 

- 

HALT 

00 

0 

40 

sto 

01 

= 

41 

0 

02 

goto 

42 

stop 

03 

1 

43 

sto 

04 

2 

44 

1 

05 


45 

stop 

06 


46 

sto 

07 


47 

2 

08 


48 

goto 

09 


49 

2 

10 


50 

7 

11 


51 

+ 

12 


52 

rcl 

13 


53 

2 

14 


54 

= 

15 


55 

stop 

16 


56 

sto 

17 


57 

2 

18 


58 

rcl 

19 


59 

1 

20 


60 

+ 

21 


61 

rcl 

22 


62 

0 

23 


63 

= 

24 


64 

sto 

25 


65 

1 

26 


66 

rcl 

27 


67 

1 

28 


68 

X 2 

29 


69 

sto 

30 


70 

3 

31 


71 

rcl 

32 


72 

2 

33 


73 

X 2 

34 


74 

4- 

35 


75 

rcl 

36 


76 

3 

37 


77 

X 

38 


78 

rcl 

39 


79 














28.6 


KEY 

# 

KEY 

# 

HALT 

00 

5 

40 



01 

rcl 

41 

sto 

02 

2 

42 



03 

M + 

43 



04 

0 

44 



05 

1 

45 



06 

+/- 

46 



07 

goto 

47 



08 

0 

48 

Y 

09 

2 

49 

C 

) 

10 


50 

l 

J 

11 


51 

F 

t 

12 


52 



13 


53 

c 


14 


54 

£ 


15 


55 

G 


16 


56 

M 

17 


57 

E 


18 


58 

N 

19 


59 

1 


20 


60 



21 


61 


22 62 

23 63 

24 64 

25 65 

26 66 

27 67 

28 68 

29 69 

30 70 

31 71 

32 72 

33 73 

34 74 

35 rcl 75 

36 0 76 

37 stop 77 

38 rcl 78 

39 1 79 


x 

rcl 

2 

2 

M + 
1 

rcl 

3 

gin 

7 


To solve 3 ^ = f(x, y) 
dx 1 

by the second order Runge-Kutta 
formula 

Yn*i = y n +Jhf(x n , yj 
+ $hf(x n + h, Vn + ihf(x n , yj) 
The initial conditions x 0 . y 0 must 
be given, and the step length h, 
where 

x„ = *o + nh. 

Write a program segment to 
evaluate fix, y) where x is in 
memory 0 , y in memory 1 and 
insert in the program opposite. 
E.g. for fix, y) = 4x 2 + 5x + 

2y + 3xy a suitable segment 
would be 

rcl/0/x/4/+/5/x/rcl/0/+/(/rcl/0/ 
x/3/-»-/2/x /rcl/1 /)/. 

Your segment can be up to 49 
steps long. 

Pre-execution: 

Store x 0 , y 0 , h in memories 0, 

1 , 2 respectively. 

Execution: 

run/ /run/ /run/ /run/ / 
run/ /run/ /.. . etc. 




FINITE 



28.7 

DIFFERENCES 

KEY 

# 

KEY 

# 

HALT 

00 


40 


- 

01 


41 


rcl 

02 


42 


0 

03 


43 


| = 

04 


44 


M + 

05 


45 

This program finds the forwards 
differences 

0 

stop 

06 

07 


46 

47 


— 

08 


48 

A A 2 A 3 

rcl 

09 


49 

given data points x 0 x, x 2 . . . 

1 

10 


50 

A, = x (4l - x, 

= 

11 


51 

A? = A,.,-A, 

M + 

12 


52 

A? = A?*, — A? 

1 

13 


53 

Execution: 

stop 

14 


54 


15 


55 

— 


x 0 /run/run/run/ 

rcl 

16 


56 

x,/run/ /run/run/ 

2 

17 


57 

x 2 /run/ /run/ /run/ 

- 

18 


58 

x 3 /run/ /run/ /run/ J 

M 4- 

19 


59 

x 4 /run/ /run/ /run/ / 

2 

20 


60 

x s /run/etc. 

goto 

21 


61 

Example: 

0 

22 


62 

0 

23 


63 

Xi Aj Af A? 


24 


64 

5/run /run /run 


25 


65 

7/run / /run /run 


26 


66 

9/run / /run / /run 


27 


67 

8/run/ /run/ /run/ 


28 


68 

3/run/ /run/ /run/ 


29 


69 

10/run / /run/ /run/ 


30 


70 

etc. 


31 


71 



32 


72 



33 


73 



34 


74 



35 


75 



36 


76 



37 


77 



38 


78 



39 


79 














00 


40 


01 


41 


02 


42 


03 


43 


04 


44 


05 


45 


06 


46 


07 


47 


08 


48 


09 


49 


10 


50 


11 


51 


12 


52 


13 


53 


14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 
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